"массив в состоит из 15 элементов заполненными от 0 до 50

program zz1;
var mas:array[1..15] of integer;
i,k:integer;
begin
for i:=1 to 15 do
mas[i]:=random(51); //заполняем массив двадцатью рандомными числами из указанного диапазона
for i:=1 to 15 do
write(mas[i], ); //выводим массив на экран
writeln; //перебегаем на новейшую строку для вывода
for i:=1 to 15 do
if (mas[i]lt;gt;0)and(mas[i] mod 2=0) then k:=k+1; //проверяем условие, если элемент, исключая ноль, из массива делится на два без остатка, то считаем его
writeln(количество четных частей - ,k); //выводим ответ

end.