Question

Viết chương trình  nhập vào dãy số gồm có N phần tử a₁, a₂, a₃,…,a_n (N<=100). Các phần tử của dãy số là các số nguyên (với n là  số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.

a. In ra màn hình giá trị của các phần tử vừa nhập

Tính tổng các số vừa nhập và in kết quả ra màn hình

Answer 1

Var a:array[1..100] of integer;

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.