Question

ПОЖАЛУЙСТА
Нужна программа на языке Паскаль
Дано число,удалить из него все нечетные числа(желательно с обьяснием)

Answer 1

uses crt;
const n=15;
var a : array [1..99] of integer;
i:integer;
begin writeln('исходный массив:');
for i:=1 to n do //заполнение массива случайными числами 
begin a[i]:=random(71)-15;
write(a[i],' ');
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do begin // Проверка на чётность 
if a[i] mod 2=0 then
write(a[i],' ');
end;
end.