Ai giúp em với! Nhập và in mảng A,B từ bàn phím, chương trình có sử dụng chương trình con. Tính tổng 2 mảng.
1 câu trả lời
uses crt;
var n,m,s:longint; a,b:array[1..1000000]of longint;
Procedure Nhap;
var i:longint;
begin
write('Nhap so luong phan tu cua mang a: ');readln(n);
for i:=1 to n Do
begin
write('a[',i,']=');readln(a[i]);
inc(s,a[i]);
end;
write('Nhap so luong phan tu cua mang b: ');readln(m);
for i:=1 to n Do
begin
write('b[',i,']=');readln(b[i]);
inc(s,b[i]);
end;
end;
begin
clrscr;
Nhap;
writeln('Tong 2 mang: ',s);
readln
end.
