Дана матрица размера M x N. Заменить каждый отрицательный элемент этой матрицы **...

Question

Дана матрица размера M x N. Заменить каждый отрицательный элемент этой матрицы на минимальный элемент своего столбца.

Comments

На каком языке программирования?

---

паскаль

Answer 1

Ответ:

Дан во вложении.

---

Comments

тогда объяви i и j в первой строке и убери слова var из циклов for

---

Сначала все запустилось, но после ввода первых двух значений, высвечивалось МАТРИЦА и все, больше ничего не происходило, я перезапустил файл, теперь в первой строке пишет ошибка.

---

А, он теперь всегда первой строку показывает ошибкой, а в паскаль онлайн, там даже что-то выскакивает

---

какая у вас первая строка, и какая там ошибка?

---

Вот ошибка unit2.pas(1,1) Fatal: Syntax error, "UNIT" expected but "VAR" found

---

var i, j, ij:longint; первая строка

---

Ошибка легко ищется в интернете: "возникает для программы в lazarus delphi в случае, если вы используете неверный для консольного приложения тип проекта"

---

Как не кручу, не получается, даже в ПаскальОнлайн на сайте не работает =(

---

var i, j, n, m, mn: longint;
a: array[1..1000,1..1000] of longint;
begin
write('N = ');
readln(n);
write('M = ');
readln(m);
writeln('Матрица:');
for i := 1 to n do
for j := 1 to m do
read(a[i,j]);
for j := 1 to m do
begin
mn := a[1,j];
for i := 2 to n do
if a[i,j] < mn then mn := a[i,j];
for i := 1 to n do
if a[i,j] < 0 then a[i,j] := mn;
end;
writeln('Результат:');
for i := 1 to n do
begin
for j := 1 to m do
write(a[i,j], ' ');
writeln;
end;
end.

---

попробуй этот