Mọi người giúp mình giải bài này đi.
Cho dãy số nguyên gồm a1,a2,a3…..an .hãy đếm số lượng giá trị trong dãy số
a) xác định bài toán
b) mô tả thuật toán, cách liệt kê để giải bài toán
Mọi người giúp mình giải bài này đi.
Cho dãy số nguyên gồm a1,a2,a3…..an .hãy đếm số lượng giá trị trong dãy số
a) xác định bài toán
b) mô tả thuật toán, cách liệt kê để giải bài toán
var n,s,i:longint;
a: array [1..1000] of longint;
begin
write(‘Nhap n: ‘); readln (n);
for i:=1 to n do
begin
write(‘A[‘,i,’] = ‘); read(a[i]);
s:=s+a[i];
end;
writeln;
write(‘Tong la: ‘,s);
readln;
end.