Question

Решить в ПаскальАВС!!!!!!!!!!!!

Answer 1

PascalABC.Net

begin

 var (m, n) := ReadInteger2('Введите M x N');

 var a := MatrRandom(m, n, -25, 19).Println;

 Println('Максимальный элемент', a.ElementsByCol.Max);

end.

Введите M x N 5 5

 17  -3   9  16 -10

-12   9  -8   5   4

 15  -8 -12  13   8

  0  -3 -13  -1  -7

  3 -16 -24 -25   7

Максимальный элемент 17  

Answer 2

Ответ:

Примечание: Программа находит первый максимальный элемент, если их несколько одинаковых.

const M = 10;

const N = 5;

var A: array [1..M,1..N] of integer;

var i,j,max,maxi,maxj: integer;

begin

// Задаем элементы матрицы и вывдим ее на экран

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(45)-25;

 write(A[i,j]:4);

 end;

 writeln();

end;

// Находим наибольший элемент

max:=A[1,1];

maxi:=1;

maxj:=1;

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

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

   begin

   max:=A[i,j];

   maxi:=i;

   maxj:=j;

   end;

 end;

end;

writeln('Наибольший элемент массива: ',max,

', расположен в ',maxi,' строке и ',maxj,' столбце');

end.