Дан одномерный массив чисел. Определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение d. Вывести на экран исходный массив и найденные значения со всеми комментариями. Если таковых не было обнаружено - выдать соответствующее сообщение.

Question

Информатика

Дарюша

13 апреля, 10:24

Дан одномерный массив чисел. Определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение d. Вывести на экран исходный массив и найденные значения со всеми комментариями. Если таковых не было обнаружено - выдать соответствующее сообщение.

+2

Ответы (1)

Знаете ответ на вопрос?

Владимира · Answer 1

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.