Дан массив из 10 элементов, заполненный случайным образом. Значения элементов от - 50 до 50. Вывести на экран элементы массива, оканчивающиеся на 4 или 8.

program zz1;

var mas:array[1 ... 10] of integer;

i, p, k:integer;

begin

for i:=1 to 10 do / /получаем исходный массив случайным образом от - 50 до 50

mas[i]:=random (101) - 50;

for i:=1 to 10 do

write (mas[i],' '); / /выводим полученный массив на экран

writeln; / /переходим на другую строку для вывода

for i:=1 to 10 do

begin

p:=mas[i] mod 10; / /получаем последнюю цифру числа

if (p=4) or (p=8) or (p=-4) or (p=-8) then begin write (mas[i],' '); k:=k+1; end; //проверяем, если последняя цифра 4,-4,8,-8, то выводим это число и считаем его

end;

if k=0 then write ('таких чисел нет') / / если таких чисел нет, то выводим сообщение

end.