Viết chương trình nhập 4 số nguyên và tính tổng các số chẵn? Giúp giải với
2 câu trả lời
uses crt;
var a:array[1..4]of longint; i,tong:longint;
begin
clrscr;
write('Nhap 4 so:');readln(a[1],a[2],a[3],a[4]);
for i:=1 to 4 do if a[i] mod 2=0 then inc(tong,a[i]);
writeln(tong);
readln;
end.
uses crt;
var i,n:integer;
a:array[1..4] of integer;
begin
clrscr;
writeln('Nhap 4 so nguyen:');
n:=0;
for i:= 1 to 4 do
begin
readln(a[i]);
If a[i] mod 2 = 0 then n:=n+a[i]
end;
writeln('Tong cac so chan la: ',n);
readln;
end.
