Cho dãy số a1, a2, a3,…an được nhập từ bàn phím viết chương trình nhập dãy số, tính tổng dãy số và giá trị rồi in ra màn hình
Cho dãy số a1, a2, a3,…an được nhập từ bàn phím viết chương trình nhập dãy số, tính tổng dãy số và giá trị rồi in ra màn hình
program ct;
uses crt;
var A:array[1..100] of integer;
i,n,m:integer;
S:longint;
begin clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to n do
if i=n then m:=A[i];
S:=A[1]+m;
writeln(‘Tong la: ‘,S);
readln;
end.
program baigiai;
Uses crt;
var A:array[1..100] of integer;
n,i:byte;
t:longint;
begin
clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Day vua nhap la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
write(‘Tong cua day la: ‘,t);
readln;
end.