Объяснение:
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.
Объяснение:
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.