50 . 1) задать массив, состоящий из 15 элементов; 2) ввести массив с функции рандом из заданного интервала (см. в таблицу); 3) вывести массив в строчку; 4) вывести в строчку все четные элементы этого массива. диапазон для рандома: [-3; 18]

const n=15;

var a:array [1..n] of integer;

i,k:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(22)-3;

write(a[i],' ')

end;

writeln;

write ('Четные элементы: ');

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i],' ')

end.