Даны случайные числа ,найти минимальное из них - вопрос №8969219 от IvanDremin1 14.04.2021 02:46

Question

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

IvanDremin1 · 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