Ввести рандомный массив из 20 2у значных чисел, найти минимальный элемент, оканчивающийся на 0.

Ответ учителя по предмету Информатика

program exs;

var a: array [1..30] of integer;

i, min, indMin : integer;

begin

min:=40;

for i:= 1 to 30 do a[i]:=random(30);

for i:= 1 to 30 do begin

if a[i] < min then begin

min:=a[i];

indMin:=i;

end;

end;

write(a[i], ‘ ‘, indMin);

end.