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

program arr50;

var a: array [1 ... 50] of integer;

nmax, nmin, sum, amax, amin:integer;

begin

nmax:=1; nmin:=1; / /№ минимального и № максимального элементов

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

randomize;

for i:integer:=1 to 50 do

begin

a[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 / /значение и № максимального элемента

begin

amax:=a[i]; nmax:=i;

end;

if a[i]
begin

amin:=a[i]; nmin:=i;

end;

end;

writeln ('Сумма = ', sum);

writeln ('Среднее = ', sum/50);

writeln ('№ максимального элемента = ', nmax);

writeln ('Значение максимального элемента = ', amax);

writeln ('№ минимального элемента = ', nmin);

writeln ('Значение минимального элемента = ', amin);

end.