Question

Дан двумерный массив, размерностью 4х5. Найти: Количество элементов массива, равных максимальному элементу

Pascal

Answer 1

var

 arr: array[1..4, 1..5] of integer;

 max, count: integer;

 i, j: integer;

begin

 max := arr[1, 1];

 count := 0;

 for i := 1 to 4 do

   for j := 1 to 5 do

   begin

     if (arr[i, j] > max) then

       max := arr[i, j];

   end;

 

 for i := 1 to 4 do

   for j := 1 to 5 do

   begin

     if (arr[i, j] = max) then

       count := count + 1;

   end;

 Writeln(count);

end.