Дан массив целых чисел, состоящий из 30 элементов. - вопрос №530279830 от Adalet555 07.02.2023 17:44

Question

Информатика: Дан массив целых чисел, состоящий из 30 элементов. заполните его датчиком случайных чисел. найти: минимальный элемент массива и его порядковый номер.

Adalet555 · Answer

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(30,-20,20); a.Println;
Writeln('Минимум: A[',a.IndexMin+1,']=',a.Min)
end.

Тестовое решение:
8 20 2 2 -6 -11 7 20 -15 1 15 8 -1 13 -3 1 5 6 -6 -5 -2 13 -7 -7 -3 4 0 -7 10 5
Минимум: A[9]=-15