Question

паскаль. за оба задания даю 40

Answer 1

Ответ:

1)

const n = 4; m = 4;

var A:array[1..n, 1..m] of integer;

   i, j, iMax, jMax:integer;

begin

 write('Заполнение - Матрица:');

 for i:=1 to n do begin

   for j:=1 to m do begin

     read(a[i, j])

   end;

 end;

 write('Матрица:');

 for i:=1 to n do begin

   writeln;

   for j:=1 to m do begin

     write(a[i, j]:3, ' ');

   end;

 end;

 iMax:=1;

 jMax:=1;

 for i:=1 to n do

   for j:=2 to n do begin

     if a[i, j] > a[iMax, jMax] then begin

       iMax:=i;

       jMax:=j;

     end;

   end;

 writeln;

 writeln('Максимальный элемент: A[', iMax, ', ', jMax, ']=', a[iMax, jMax]);

end.

Вторую не успел сделать, надо уехать.

Объяснение: