Ai giỏi tin thì giúp mình nha
BT : viết trương trình nhập vào một mảng số nguyên.in ra màn hình dãy số đã nhập và tổng của dãy số
Ai giỏi tin thì giúp mình nha
BT : viết trương trình nhập vào một mảng số nguyên.in ra màn hình dãy số đã nhập và tổng của dãy số
program ct;
uses crt;
var S,i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln(‘day so vua nhap la’);
for i:=1 to n do
write(A[i],’ ‘);
S:=0;
for i:=1 to n do S:=S+A[i];
writeln(‘tong la:’,S);
readln
end.
uses crt;
var A:array[1..1000] of integer;
i,n,S:longint;
begin
clrscr;
write(‘Nhap do dai cua day so: ‘);readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’);readln(A[i]);
end;
clrscr;
writeln(‘Cac phan tu cua mang la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
S:=0;
for i:= 1 to n do S:=S+A[i];
write(‘Tong cac phan tu trong mang la: ‘,S);
readln;
end.