Viết chương trình pascal nhập n số nguyên từ bàn phím và ghi ra màn hình tổng các số đó. Số n cũng được nhập vào từ bàn phím
Viết chương trình pascal nhập n số nguyên từ bàn phím và ghi ra màn hình tổng các số đó. Số n cũng được nhập vào từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write(‘Nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(a[i]);
end;
writeln(‘Cac so ban vua nhap la: ‘);
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(‘Tong cac so vua nhap la: ‘,t);
uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write(‘n=’); readln(n);
writeln(‘Cac phan tu: ‘);
for i:=1 to n do
begin
read(a[i]);
inc(s,a[i]);
end;
writeln(‘Tong: ‘,s);
readln;
end.