Заполнить массив из 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.