Question

viết chương trình kiểu mảng B gồm N số(N<=10, N nhập từ bàn phím).hãy in ra số chẳn của mảng B

Answer 1

program sochan;
uses crt;
var n,i:integer;
b: array[1..10] of integer;
begin
clrscr;
repeat
write('So cac so cua mang: ');readln(n);
if (n > 10) or (n < 1) then
begin
write('So nhap vao khong hop le. Hay nhap lai');
delay(2000);
clrscr;
end;
until (n <= 10) and (n > 0);
for i:= 1 to n do
begin
write('So thu ',i,': ');
readln(b[i]);
end;
writeln('Cac so chan cua mang la:');
for i:= 1 to n do
if (b[i] mod 2 = 0) then
write(b[i],' ');
readln
end.