viết chương trình nhấp vào 1 mảng A gồm n phần tử thuộc kiểu số nguyên. In ra màn hình các số chẵn.

Question

aikhanh · Answer

program so_chan;

uses crt;

var A:array [1..500] of integer;

n,i: integer;

Begin

clrscr;

write(‘Nhap so phan tu: ‘); readln(n);

for i:=1 ton do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

end;

write(‘Cac so chan trong mang: ‘);

for i:=1 to n do

if A[i] mod 2=0 then write(A[i],’ ‘);

readln

End.

0 bình luận về “viết chương trình nhấp vào 1 mảng A gồm n phần tử thuộc kiểu số nguyên. In ra màn hình các số chẵn.”