1. Дан целочисленный массив из двадцати пяти элементов. Элементы могут принимать значения от - 500 до 500. Найти минимальное значение среди элементов массива которые имеют четное значение и не деляться на 7.

Var a: array [1 ... 25] of integer;

i, m, c: integer;

begin

for i : = 1 to 25 do

begin

a[i] : = random (1000) - 500;

writeln ('[', i, '] = > ', a[i]) ;

end;

m : = 501;

for i : = 1 to 25 do

if ((m > a[i]) and (a[i] mod 2 = 0) and (i mod 7 > 0)) then

begin

m : = a[i];

c : = i;

end;

writeln ('[', c, '] = > ', a[c]) ;

end.

Так=)