Mấy bạn giúp mình với ạ Chương trình nhập vào mảng tối đa 50 số. Tính và xuất ra Tổng các số chẵn trong mảng vừa nhập.
2 câu trả lời
Program BTH;
uses crt;
var a:array[1..50] of longint;
n,i,s:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('a[',i,']: ');readln(a[i]);
If a[i] mod 2=0 then s:=s+a[i];
end;
writeln('Tong cac so chan co trong day la: ',s);
readln;
end.
program oken;
uses crt;
var a: array [1..50] of integer;
n,i,chan:longint;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
chan:= 0;
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
if a[i] mod 2=0 then chan:=chan+a[i];
end;
writeln('tong cac so chan cua mang a=',chan);
readln;
end.
