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

Question

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

---

Answer 1

begin

   var (строк, столбцов) := ReadInteger2('Введи N и M:');

   Writeln('Введите элементы массива построчно');

   var массив := ReadMatrReal(строк, столбцов);

   массив.ElementsByRow.Min.Print

end.

===== Так писали наши деды =====

const

 nn = 50;

 mm = 50;

 

var

 i, j, n, m, min : integer;

 a: array[1..nn, 1..mm] of integer;

begin

 Write('Введи N и M: ');

 Read(n, m);

 Writeln('Введите элементы массива построчно');

 min := 32767;

 for i := 1 to n do

   for j := 1 to n do

   begin

     Read(a[i,j]);

     if a[i,j] < min then

       min := a[i,j]

   end;

 Write(min)

end.

Comments

Если она не знает этот паскаль, это не повод требовать старые коды с остальных.

---

Так, ну ладно, разве что в порядке исключения... У меня еще есть окло 10 минут до того, как обед сварится)))

---

Ой спасибо))

---

И приятного аппетита на будущее

---

Что будем с границами массива делать? В мамонячьем кодн надо задавать верхние границы

---

от 1 до N можно? если нет то мы от 1 до 50 обычно делаем

---

Нельзя, там же статическое распределение памяти. ОК, 50

---

Ну вот, добавил. Как говорится, "почувствуйте разницу"

---

Спасибо большое Вам)) Приятного аппетита) Надеюсь Ваш обед не остыл))

---

Спасибо. В следующий раз пишите, что нужен код Free Pascal