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

На алгоритмическом.a=массив(10..50);max:=a[1]'min:=a[1];n_min:=0;n_max:=0;k:=0;i:=10;пока i<=50  делайнц  если a[i]>max то    нц     max:=a[i];     n_max:=i;    кц  если a[i]<min то   нц    min:=a[i];    n_min:=i;   кц если (i mod 2)==0 то   sum:=sum+a[i];    k:=k+1;кцsrednee_znachenie:=sum/k;//========================vara:array(10..50) of integer;max,min,n_min,n_max,k,i,sum:integer;sr:float;begin max:=a[1]; min:=a[1]; for i:=10 to 50 do  begin   if a[i]>max then    begin     max:=a[i];     n_max:=i;    end;   if a[i]<min then    begin     min:=a[i]     n_min:=i;    end;   if ((i mod 2)=0) then    begin     k:=k+1;     sum:=a[i]+sum;    end;  end;end;sr:=sum/k;end.