Các câu hỏi dưới đây có thể giống với câu hỏi trên
Bảng xếp hạng
Tất cảToánVật lýHóa họcSinh họcNgữ vănTiếng anhLịch sửĐịa lýTin họcCông nghệGiáo dục công dânÂm nhạcMỹ thuậtTiếng anh thí điểmLịch sử và Địa lýThể dụcKhoa họcTự nhiên và xã hộiĐạo đứcThủ côngQuốc phòng an ninhTiếng việtKhoa học tự nhiên
tra loi nhanh giup minh nhe!
program bt;
var n,i:integer;
a:array[1..100] of integer;
procedure nhap;
begin
writeln('nhap so pt');
readln(n);
writeln('nhap mang');
for i:=1 to n do read(a[i]);
end;
procedure xuli;
begin
dem:=0;
for i:=1 to n do
if a[i] mod 2= 0 then begin
writeln(a[i]);
inc(dem);
end;
begin
nhap;
xuli;
readln;
end.
Chúc bạn làm tốt!( có sai nói mik nhe)