Дан одномерный массив чисел. определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение 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.