Nhập vào 100 số nguyên từ bàn phím. In ra màn hình các số vừa nhập và đếm số lượng các số chắn Var A:array[1..100]of integer
1 câu trả lời
program sksk;
uses crt;
var a : array[1..100] of integer;
i, dem : integer;
begin
clrscr;
dem := 0;
for i := 1 to 100 do
begin
write('nhap so nguyen thu ', i ,' : ');readln(a[i]);
if a[i] mod 2 = 0 then dem := dem + 1;
end;
write('cac phan tu trong day la :');
for i := 1 to 100 do write(a[i]:4);
writeln;
writeln('so luong cac so nguyen chan co trong day la :', dem);
readln
end.
