Question

Viết chương trình nhập một mảng số thực gồm n phần tử(N là số số nguyên dương nhập từ bàn phím) in ra màn hình các phần tử của mảng vừa nhập và tổng các phần tử trong mảng

Bạn nào bt làm giúp em vs ạ mai phải nợp sớm rồi

Answer 1

uses crt;
var i:longint; n,s:real; a:array[1..10000] of real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do begin
write(a[i],',');
s:=s+a[i]; end;
writeln;
write('tong cac phan tu trong mang la: ',s);
readln
end.