Bài 11: Kiểu mảng

Khang Hoàng

viết chương trình pascal nhập các mảng số nguyên và xuất ra các phần tử chẵn nhỏ hơn 20

ai giúp với ạ !!!

 

 

 

Nguyễn Lê Phước Thịnh
16 tháng 1 2021 lúc 22:00

uses crt;

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

i,n:integer;

begin

clrscr;

write('Nhap n='); 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) and (a[i]<20) then write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
an1114
Xem chi tiết
Benny
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Divine 000
Xem chi tiết
Ho Hai Trieu
Xem chi tiết
Trần Cương
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết
Nguyễn Thị Thanh Phương
Xem chi tiết
Thái Thiên Thành
Xem chi tiết