Question

Viết chương trình thực hiện các yêu cầu sau:

+ Nhập vào 1 mảng số nguyên

+In ra mảng vừa nhập

+In ra các số chẵn trong mảng

 

Answer 1

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;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

writeln('Day cac so chan la: ');

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.