chương trình tính tổng các phần tử của dãy:
var a:array[1..1000]of integer;
i,n,t:integer;
begin
t:=0;
write('nhap n');readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
t:=t+a[i];
write(t);
readln;
end.
chương trình tính tổng các số chẵn của dãy:
var a:array[1..1000]of integer;
i,n,t:integer;
begin
t:=0;
write('nhap n');readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2 =0 then
t:=t+a[i];
write(t);
readln;
end.