Даны СЛУЧАЙНЫЕ числа ,Найти МИНИМАЛЬНОЕ из них PASCAL

0 голосов

Даны СЛУЧАЙНЫЕ числа ,Найти МИНИМАЛЬНОЕ из них PASCAL


спросил от (45 баллов) в категории Информатика
1 Ответ
0 голосов
ответил от БОГ (150k баллов)
 
Лучший ответ
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Минимальный элемент ',a.Min);
end.

Пример
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50
...