Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений...

0 голосов
82 просмотров

Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. TURBO PASCAL


Информатика | 82 просмотров
Дан 1 ответ
0 голосов

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 max    max:=mas[i,j];
   if min>mas[i,j] then
    min:=mas[i,j];
  end;
 writeln((max+min)/2);
end.

(2.4k баллов)