Viết chương trình nhập vào N số nguyên của 1 dãy số.Sau đó in ra màn hình tổng các phần tử chẵn của các số trong dãy số đã cho.
Mọi người giúp mình với gấp lắm ạ
Viết chương trình nhập vào N số nguyên của 1 dãy số.Sau đó in ra màn hình tổng các phần tử chẵn của các số trong dãy số đã cho.
Mọi người giúp mình với gấp lắm ạ
Uses crt;
Var a: array[1..100] of integer;
i,n:integer;
Begin
Clrscr;
Write(‘nhap n: ‘); readln (n);
For i:=1 to n do
Begin
Write(‘nhap a[‘,i,’]: ‘); readln (a[i]);
End;
Write (‘cac so chan co trong mang la: ‘);
For i:=1 to n do
If a[i] mod 2=0 then write (a[i],’ ‘);
Readln;
End.
program tong_chan;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=0 then t:=t+A[i];
end;
write(‘Tong cac phan tu chan la: ‘,t);
readln;
end.