Bài 11: Kiểu mảng

QT

Nhập vào mảng số nguyên tìm phần tử các số nguyên là số chẵn

ML
7 tháng 5 2020 lúc 19:28

Program hotrotinhoc_hoc24;

var a: array[1..32000] of integer;

i,n: integer;

begin

write('Nhap so phan tu : ');

readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

readln

end.

Bình luận (0)

Các câu hỏi tương tự
TL
Xem chi tiết
TL
Xem chi tiết
KT
Xem chi tiết
ST
Xem chi tiết
H24
Xem chi tiết
HT
Xem chi tiết
LT
Xem chi tiết
NL
Xem chi tiết
TH
Xem chi tiết
D0
Xem chi tiết