Даны случайные числа ,найти минимальное из них pascal - вопрос №8970121 от sinelena2018 14.09.2020 00:27

Question

Информатика: Даны случайные числа ,найти минимальное из них pascal

sinelena2018 · Answer

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