Viết ct nhập vào 1 mảng 1 chiều có n (n<=100) phần tử là số nguyên . Tính tổng các phần tử có trogg mảng , kết quả hiện ra màn hình
2 câu trả lời
uses crt;
var i,n,s:longint; a:array[1..100]of longint;
begin
clrscr;
write('n= (n<=100) ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
inc(S,a[i]);
end;
writeln('Tong cac phan tu trong mang: ',s);
readln
end.
uses crt;
var a: array[1..100] of integer;
i,n: integer;
s: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]):
s:=s+a[i];
writeln ('tong la: ',s);
readln;
end.
