Question

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

Answer 1

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.

Answer 2

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,10,99); a.Println;
  Writeln('min10=',a.Where(x->x mod 10=0).Min)
end.

Пример
73 14 50 76 47 38 42 76 29 96 22 95 90 12 36 47 11 46 20 58
min10=20