Предмет: Информатика,
автор: Islom36
Сделайте пожалуйста сколько можете!!!!
Приложения:

Аноним:
Понятно, что если можно сделать одно задание, зачем делать больше?
Ответы
Автор ответа:
1
PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
№10
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(10,10,-20,20);
a.Println(4); Writeln(4*a.ColCount*'-');
var mx:=a.ElementsByRow.Max;
a.Transform(t->t=mx ? 0 : t);
Writeln('*** Полученная матрица ***'); a.Println(4)
end.
Внимание! Если программа не работает, обновите версию!
№10
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(10,10,-20,20);
a.Println(4); Writeln(4*a.ColCount*'-');
var mx:=a.ElementsByRow.Max;
a.Transform(t->t=mx ? 0 : t);
Writeln('*** Полученная матрица ***'); a.Println(4)
end.
Приложения:

Похожие вопросы
Предмет: Геометрия,
автор: serayamish
Предмет: Математика,
автор: polinakim104
Предмет: Английский язык,
автор: Аноним
Предмет: Алгебра,
автор: reisunya