Viết chương trình tính tổng các phần tử của dãy
Viết chương trình tính tổng các số chẵn của dãy
Viết chương trình tính tổng các phần tử của dãy Viết chương trình tính tổng các số chẵn của dãy
By Brielle
By Brielle
Viết chương trình tính tổng các phần tử của dãy
Viết chương trình tính tổng các số chẵn của dãy
ảnh nha
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.