с решением. Если есть ссылка на ответы дайте ссылку. Советы на подобие найди сам не нужны

1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47

ещё несколько лет назад, смотря по телевизору очередной фантастический фильм с участием роботов, никто и подумать не мог, что когда-нибудь эти умные машины появятся и в реальности. однако сегодня научная фантастика воплощается в реальность и роботы уже готовы работать на предприятиях вместо человека.

в это можно и не верить, однако есть несколько фактов, свидетельствующих о таком развитии событий. по всему миру активно участвуют в труде 25 миллионов роботов. аналитики предполагают, что к 2017 году их количество увеличится в 3 раза. и в эту цифру ещё не были учтены роботы, работающие в интернете и ит-компаниях, так называемые программные. современные ремонтные предприятия вполне могут организовать широкое обслуживание робототехники. так же как можно выполнить ремонт генераторов, перейдя по  ссылке, так же оперативно  в обозримой перспективе будут ремонтироваться и роботы.    в целом то, что они  становятся всё более востребованы, удивления не вызывает, ведь они могут работать круглые сутки напролёт, не жалуются ни на что, не попивают кофе на рабочем месте и не устраивают частые перекуры.

известная компания expert market решила опросить старших менеджеров насчёт их мнения о рабочих-роботах. полученного результата не мог предвидеть никто. у роботов есть все шансы втиснуться в ряды сотрудников во многих компаниях. получается, что многие люди могут быть заменены рабочим-роботом намного раньше, чем предполагали об этом ранее.

1) из опрошенных менеджеров почти 3 четверти готовы принять на работу робота.

2) менеджеры готовы доверить роботам работу в сфере администрации, принятие телефонных звонков, контроль над электронной перепиской, составление разного рода отчётов.

3) в отличие от людей, у роботов не бывает больничных, делают работу без отклонений от инструкции, не могут просто взять и уволиться.

4) единственное, что плохо в роботах, они не могут свободно творить, и у них нет привязанности к работе на эмоциональном уровне.

5) из всех опрошенных лишь 15% беспокоит такое массовое использование роботов в рабочей сфере.

6) 79% опрошенных предпочитают, чтобы робот не был похож на человека.

7) 68% менеджеров с удовольствием бы отдали роботам большую часть своих рабочих обязанностей.

8) 56% отдали бы всю свою работу, дабы расширить своё личное время.

9) 52% опрошенных могли бы взять робота на должность офис-менеджера, 44% – в сферу ит, 28% – в сферу финансирования. большинство опрошенных согласились, что робот не может выполнять творческую работу, поэтому в pr и сферу дизайна, а также на должность генерального директора их не возьмут.

10) 47% опрошенных сказали, что не будут испытывать каких-либо жалостливых чувств к тем, кого заменят роботом.