Даю 50 баллов. 1) Задать массив, состоящий из 15 элементов; 2) Ввести массив с помощью...

Question

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

Answer 1

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.