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