Lập trình đơn giản

NT

Viết chương trình nhập dãy n số nguyên. In ra màn hinh các số chẵn

TT
24 tháng 4 2022 lúc 19:48

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer;
begin
clrscr;
write('nhap vao so nguyen n :');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');  readln(a[i]);
end;
write('Cac so chan la:');
for i:=1 to n do if a[i] mod 2=0 then
write( a[i],' ');
readln;
end.

Bình luận (2)

Các câu hỏi tương tự
HQ
Xem chi tiết
NA
Xem chi tiết
QM
Xem chi tiết
T8
Xem chi tiết
QN
Xem chi tiết
KH
Xem chi tiết
NL
Xem chi tiết
0H
Xem chi tiết
H24
Xem chi tiết