Дан одномерный массив чисел. Определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение d. Вывести на экран исходный массив и найденные значения со всеми комментариями. Если таковых не было обнару...
Дан одномерный массив чисел. Определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение 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.
Не нашли ответ?
Похожие вопросы