Предмет: Информатика,
автор: lBARSUSl
Дана матрица размера M x N. Заменить каждый отрицательный элемент этой матрицы на минимальный элемент своего столбца.
Wani4kaa:
На каком языке программирования?
Ответы
Автор ответа:
0
Ответ:
Дан во вложении.
Приложения:
![](https://files.topotvet.com/i/f05/f0566e087cf79d5fe70768ddc4772b06.png)
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.
Похожие вопросы
Предмет: Английский язык,
автор: jeanchikussr
Предмет: Українська мова,
автор: Катюха54321
Предмет: Английский язык,
автор: Nastya102003
Предмет: Литература,
автор: Shuleshova06Nastia
Предмет: Математика,
автор: МаликаТулегенова