Дан одномерный массив чисел. Определить максимальное, минимальное и среднее ариф?

Дан одномерный массив чисел. Определить максимальное, минимальное и среднее ариф??етическое чисел, превышающих значение d. Вывести на экран исходный массив и найденные значения со всеми комментариями. Если таковых не было обнаружено – выдать соответствующее сообщение.
Гость
Ответ(ы) на вопрос:
Гость
Program massiv_max; var A:array[1..10] of integer; i,j,max,n_max:integr; begin for i:=1 to 10 do readln(A); max:=A[1]; n_max:=1; for j:=2 to 10 do begin if A[j]>max then begin max:=A; n_max:=i; end; end; writeln('max=',max); writeln('n_max=',n_max); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы