Даю 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.