Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. TURBO PASCAL
Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. TURBO PASCAL
Гость
Ответ(ы) на вопрос:
Гостьconst
N = 6;
M = 9;
var
mas:array[1..N,1..M] of integer;
max,min,j,i:integer;
begin
max:=-maxint;
min:=maxint;
for i:=1 to N do
for j:=1 to M do
begin
if maxmas[i,j] then
min:=mas[i,j];
end;
writeln((max+min)/2);
end.
Не нашли ответ?
Похожие вопросы