Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50. Найти и вывести номер и значение максимального

program arr50;var a: array [1..50] of integer;nmax, nmin, sum, amax, amin:integer;

beginnmax:=1; nmin:=1; //№ минимального и № максимального элементовamax:=0; amin:=50; //значения минимального и максимального элементов

randomize;

for i:integer:=1 to 50 dobegina[i]:=random(41)+10;

if i mod 10 = 0 then writeln(a[i]:3) else write(a[i]:3);sum:=sum+a[i];//сумма элементов

if a[i]>amax then //значение и № максимального элементаbeginamax:=a[i];nmax:=i;end;

if a[i]<amin then //значение и № максимального элементаbeginamin:=a[i];nmin:=i;end;

end;

writeln(\'Сумма = \',sum);writeln(\'Среднее = \', sum/50);writeln(\'№ максимального элемента = \', nmax);writeln(\'Значение максимального элемента = \', amax);writeln(\'№ минимального элемента = \', nmin); writeln(\'Значение минимального элемента = \', amin);

end.