Nhập vào mảng A gồm 10 số thực, tính và đưa ra màn hình tổng các phần tử của mảng A.
2 câu trả lời
uses crt;
var x, res: real;
i: longint;
begin
clrscr;
for i:=1 to 10 do
begin
read(x);
res:=res + x;
end;
writeln(res:0:2);
readln; readln;
end.
uses crt;
var a : array[1..100] of real;
i : integer;
s : real;
begin
clrscr;
s := 0;
for i := 1 to 10 do
begin
write('nhap phan tu thu ', i,' : ');readln(a[i]);
s := s + a[i];
end;
writeln('tong phan tu :', s :3:2);
readln
end.
