На входе вводим с клавиатуры размерность массива: n строк и m столбцов.
Первые два вложенных цикла - это ввод двумерного массива с помощью датчика случайных чисел randomize.
Далее во вложенных циклах ищем максимальную сумму элементов по строкам и запоминаем номер строки в переменную k.
Строку с выводом s и k писать не нужно.
Далее один цикл обмена к-той строки и последней.
Последние вложенные циклы выводят изменённый массив.
Прежде чем выводить массив нужно поставить поверку:
If k=m then write(‘Менять строки местами не нужно’) else begin и последние два вложенных цикла.
Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110
001001200123001001234
Это 21 цифра
Что шоколадных стало 9. карамели стало 5. ирисок стало 4. А леденцов стало 3
1)взять чайник
2)открыть крышку чайника
3)открыть кран