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

300

500

Посмотреть ответы 2

Ответы на вопрос:

MaksStilinski

Информатика

4,6(76 оценок)

На алгоритмическом. 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.