nhập vào 100 số nguyên dương in ra màn hình các số vừa nhập và đếm số lượng các số chẳn
nhập vào 100 số nguyên dương in ra màn hình các số vừa nhập và đếm số lượng các số chẳn
By Piper
By Piper
nhập vào 100 số nguyên dương in ra màn hình các số vừa nhập và đếm số lượng các số chẳn
Program BTT;
Uses crt;
Var A: array[1..100] of qword;
i,d: byte;
Begin
Clrscr;
d:=0;
For i:=1 to 100 do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
Write(‘Mang vua nhap: ‘);
For i:=1 to 100 do Write(A[i],’ ‘);
Writeln;
Write(‘Co ‘,d,’ so chan’);
Readln
End.
var a: array[1..100] of longint;
i,d: longint;
begin
for i:=1 to 100 do
begin
write(‘A[‘,i,’] = ‘);
read(A[i]);
end;
for i:=1 to 100 do if a[i] mod 2 = 0 then inc(d);
writeln;
write(‘Mang vua nhap la: ‘);
for i:=1 to 100 do Write(a[i],’ ‘);
writeln;
write(‘So chan: ‘,d);
readln;
end.