Дана матрица размера M x N. Заменить каждый отрицательный элемент этой матрицы на минимальный элемент своего столбца.
Wani4kaa:
На каком языке программирования?
паскаль
Ответы
Ответ дал:
0
Ответ:
Дан во вложении.
Приложения:
тогда объяви 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.
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.
попробуй этот
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад