Замятнин
6 год назад
Дан одномерный массив чисел. Определить максимальное, минимальное и среднее арифметическое чисел, превышающих значение d. Вывести на экран исходный массив и найденные значения со всеми комментариями. Если таковых не было обнаружено – выдать соответствующее сообщение.
ОТВЕТЫ
Пётр
Aug 2, 2019
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]gt;max then begin max:=A; n_max:=i; end;
end;
writeln(max=,max);
writeln(n_max=,n_max);
end.
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]gt;max then begin max:=A; n_max:=i; end;
end;
writeln(max=,max);
writeln(n_max=,n_max);
end.
299
Смежные вопросы:
