profile
Опубликовано 5 лет назад по предмету Информатика от вася2221

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

  1. Ответ
    Ответ дан Аккаунт удален
    // 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