Размер произвольныйРешить в FreePascalАВСNet!!!!!!!!!!!!!!!!!1

Question

Размер произвольныйРешить в FreePascalАВСNet!!!!!!!!!!!!!!!!!1

---

Comments

Я весь внимание: откуда его брать - этот самый Паскаль АВС ?

---

как всегда с мамоньячего 1984г

---

Откуда - это значит ссылочка на безопасное (без вирусов) скачивание.

---

Опа... "FreePascalАВСNet!" - это что за монстрик?

---

PascalABC.net

---

:D

---

Так. С начала. Нужно современное решение или в "мамонтячьих кодах" ?

---

в мамонтячьих)

---

Ну так пишите тогда, что Вам надо решение в Turbo/Free Pascal - именно вот так. Чего же мозг выносить?

---

Старый Pascal ABC - это был эмулятор Turbo Pascal под Windows. Был написан на Delphi. Умер в 2008 году.

Answer 1

Ответ:

const

 n = 3;

 m = 3;  

var

 x: array[1..n, 1..n] of integer;

 j, i, imax, jmax: integer;

begin

 imax := 1;

 jmax := 1;

 for i := 1 to n do

 begin

   for j := 1 to n do

   begin

     readln(x[i, j]);

     if x[i, j] > x[imax, jmax] then

     begin

       imax := i;

       jmax := j;

     end;

   end;

 end;

 write('Max: ', x[imax, jmax]);

end.

Объяснение:

проверь, работает или нет

Comments

нет