tính tổng của 100 số nhập vào từ bàn phím ( sử dụng kiểu dữ liệu mảng)
2 câu trả lời
Program tong;
Uses crt;
Var a:array[1..100] of integer;
n,s,i:integer;
Begin
Clrscr;
Write('nhap so phan tu cua mang:n=');readln(n);
For i:=1 to n do
Begin
Write('a[',i,']='); readln(a[i]);
End;
For i:= 1 to n do
Begin
S:=0;
S:= s+a[i];
Write('tong cua cac phan tu trong mang:s=',s);
End;
Readln;
End.
program ct;
uses crt;
var A:array[1..100] of integer;
i:integer;
S:longint;
begin clrscr;
for i:=1 to 100 do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
for i:=1 to 100 do
S:=S+A[i];
write('Tong cua 100 so la: ',S);
readln;
end.
Học tốt!
