Question

viết chương trình nhập vào một mảng số nguyên có 10 phần tử. Tính và in ra màn hình tổng các phần tử đó

 

Answer 1

Program HOC24;

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

i: byte;

t: longint;

begin

for i:=1 to 10 do

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to 10 do t:=t+a[i];

wrie('Tong 10 phan tu do la: ',t);

readln

end.