1. Дано n целых чисел. Вывести все числа, меньшие последнего числа в ряду; 2. Определите, есть ли в массиве числа от 3 до 7. Укажите их номер.

Массив заполняется случайными числами от нуля до 20 включительно.

var

matrix: array[1 ... 20]of integer;

i: integer;

begin

for i : = 1 to 20 do

begin

matrix[i] : = random (20);

write (matrix[i]:4);

end;

writeln;

writeln ('Все числа, меньшие последнего в ряду:');

for i : = 1 to 10 do

begin

if matrix[i] < matrix[20] then

write (matrix[i]:4, '; ');

end;

writeln;

writeln ('Числа в ряду от 3 до 7:');

for i : = 1 to 10 do

begin

if (matrix[i] 3) then

write (matrix[i]:4,' под индексом [', i, ']; ');

end;

end.