На входе вводим с клавиатуры размерность массива: n строк и m столбцов.
Первые два вложенных цикла - это ввод двумерного массива с помощью датчика случайных чисел randomize.
Далее во вложенных циклах ищем максимальную сумму элементов по строкам и запоминаем номер строки в переменную k.
Строку с выводом s и k писать не нужно.
Далее один цикл обмена к-той строки и последней.
Последние вложенные циклы выводят изменённый массив.
Прежде чем выводить массив нужно поставить поверку:
If k=m then write(‘Менять строки местами не нужно’) else begin и последние два вложенных цикла.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше
б и в ( а с чем это связано????????????????????‽)