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

можно на C++

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.