Question

Написать программу формирующую двумерный массив размером 4х4 и выводящую на экран максимальное количество элементов этого массива

Answer 1

 

 Видимо имеется ввиду выводящий максимальны элемент этого массива

 

 В данном примере матрица формируется при помощи случайных чисел 

 

 

program MatrixMax;

Uses Crt;
   type matrix=array[1..4,1..4] of real;

   var m:matrix;

          max:real;

 

 

{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
    randomize;
    for i:=1 to 4 do
           begin
               for j:=1 to 4 do
                     begin
                         m[i,j]:=25+random(21);
                     end;
             end;
end; 

  

{Вывод матрицы на экран} 

 

procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
 for k:=1 to 4 do
       begin
           for j:=1 to 4 do
              begin
                 write(mas[k,j]:7:2);
             end;
    writeln;
       end;

end; 

 

 

 

 {Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
    max:=m[1,1]
    for i:=1 to 4 do
           begin
               for j:=1 to 4 do
                     begin
                        if (max<m[i,j]) then max:=m[i,j];
                     end;
             end;
end;

 

 

 begin

      Clrscr;

       Auto;

       PrintMatrix;

       Max;

        writeln;

        writeln('Максимальный элемент матрицы: ',max);

 

 

 end.