Помогите срочнооо, 60 баллов, Паскаль! Дан массив из 20 целых чисел. Найти минимальный...

Question

Помогите срочнооо, 60 баллов, Паскаль!
Дан массив из 20 целых чисел. Найти минимальный элемент массива.

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.

Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14

Answer 2

Var a:array[1..20] of integer;
       i,min:integer;
begin
min:=100;
   for i:=1 to 20 do begin
         a[i]:=random[min];  
         write(a[i],'  ');
         if min  end;
writeln();
write('min = ', min);
readln();
end.