Viết chương trình nhập vào một dãy số nguyên gồm N phần tử . in ra màn hình tổng giá trị của các phần tử đó
Viết chương trình nhập vào một dãy số nguyên gồm N phần tử . in ra màn hình tổng giá trị của các phần tử đó
By Charlie
By Charlie
Viết chương trình nhập vào một dãy số nguyên gồm N phần tử . in ra màn hình tổng giá trị của các phần tử đó
program cr;
uses crt;
var i,n,Tong:integer;
A: array[1..100] of integer;
begin
write(‘nhap n=’);readln(n);
for i:=1 to n do
begin
write(‘nhpa mang A[‘,i,’]:=’);readln(A[i]);
end;
Tong:=0;
for i:=1 to n do Tong:=Tong + A[i];
writeln(‘tonh gia tri cac phan tu la’,Tong);
readln
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,s:integer;
begin
clrscr;
s:=0;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
s:=s+a[i];
end;
write(‘Tong: ‘,s);
readln;
end.