Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы, и их номера. программа на языке паскаль.

163

408

Посмотреть ответы 2

Ответы на вопрос:

lizavolod17

Информатика

4,6(43 оценок)

Var arr : array [1..10] of integer; //объявляем массив i, min, max : integer; //индекс, позиция минимального элемента, позиция максимального элемента begin min : = 1; max : = 1; for i : = 1 to 10 do arr[i] : = random(20) - 10; //заполняем массив for i : = 2 to 10 do //находим позицию максимального элемента if arr[i] > arr[max] then max : = i; for i : = 2 to 10 do //находим позицию минимального элемента if arr[i] < arr[min] then min : = i; writeln('максимальный элемент: ', arr[max], '; его позиция: ', max); writeln(' элемент: ', arr[min], '; его позиция: ', min); end.