Question

Câu 4: Viết chương trình nhập mảng a gồm 10 phần tử là số nguyên. Tính và in ra tổng các phần tử trong mảng.     

mọi người giải gúp em với:(                  

Answer 1

program TinhTongMang;

var

       a: array[1..10] of integer;

       i, tong: integer;

begin

       tong := 0;

       writeln('Nhap mang a gom 10 phan tu:');

       for i := 1 to 10 do

       begin

              write('a[', i, '] = ');

              readln(a[i]);

              tong := tong + a[i];

       end;

       writeln('Tong cac phan tu cua mang la: ', tong);

end.