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 16/07/2021 Bởi 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
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. Bình luận
ả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.