cho mảng A gồm N phần tử thuộc kiểu nguyên viết chương trình in ra màn hình các giá trị chẵn của mảng A

Question

tonga · Answer

program baitap;

uses crt;

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

n,i: integer;

begin

clrscr;

write(‘nhap so phan tu cua mang:’);

readln(n);

for i:=1 to n do

begin

writeln(‘phan tu thu A’,i,’=’);

readln(A[i]);

end;

for i:=1 to n do

if (A[i] mod 2=0) then writeln (A[i]);

readln;

end.

quynhthu · Answer

program so_chan;

uses crt;

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

n,i,d:integer;

begin

clrscr;

write(‘Nhap N: ‘); readln(n);

d:=0;

for i:=1 to n do

begin

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

if A[i] mod 2=0 then d:=d+1;

end;

if d=0 then write(‘Khong co so chan nao’)

else

begin

write(‘Cac so chan la: ‘);

for i:=1 to n do

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

end;

readln;

end.