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

Дан одномерный массив (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; //======================== var a: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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы