Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы, и их номера. Программа на языке Паскаль.
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.
Answers & Comments
Verified answer
Vararr : 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.