Заполните массив, состоящий из 20 элементов, случайными целыми от 15 до 100. найдите минимальный элемент из элементов с чётными значениями.

Объяснение:

program EvenMinimum;

var

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

i,min: integer;

begin

   for i:= 1 to 20 do a[i]:=random(85)+15;

   writeln('Default array:');

   for i:=1 to 20 do write(a[i],' ');

   writeln();

   for i:=1 to 20 do if a[i] mod 2 = 0 then min:=a[i];

   for i:=1 to 20 do if (a[i] < min) and (a[i] mod 2 = 0) then min:=a[i];

   writeln('Even minimum in this array is :', min);

end.