Question

Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать из него все четные числа, подсчитать их количество. Если таких чисел нет, то вывести сообщение об этом.

Answer 1

//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15); 
if a[i] mod 2 = 0 then begin 
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
end.