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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm