Question

Написать программу на языке Pascal , которая ищет сумму наибольшего + наименьшего элемента массива из 20 элементов случайных чисел (сам массив надо обязательно вывести на экран после заполнения)​

Answer 1

Программа:

Pascsal:

var arr: array[1..20] of integer;

begin

 for var i := 1 to 20 do arr[i] := random(-10, 10);

 writeln('Массив: ', arr);

 writeln('Сумма наибольшего и наименьшего элементов: ', arr.max + arr.min);

end.