Напишите программу которая заполняет массив из 10 элементов случайными числами ** отрезке...

0 голосов
330 просмотров

Напишите программу которая заполняет массив из 10 элементов случайными числами на отрезке [50;150] и находит в нем минимальный и максимальный элементы и их номера. На языке паскаль,пожалуйста помогите.


Информатика (16 баллов) | 330 просмотров
Дан 1 ответ
0 голосов

// PascalABC.NET

begin

 var a := ArrRandom(10, 50, 150);

 a.Println;

 var (imin, imax) := (a.IndexMin, a.IndexMax);

 Println('Минимальный элемент номер', imin + 1, 'равен', a[imin]);

 Print('Максимальный элемент номер', imax + 1, 'равен', a[imax])

end.

(1.6k баллов)