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.

0 bình luận về “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. 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.

   Bình luận