Составить программу перестановки строк в целочисленном
массиве размером M x N в порядке убывания суммы элементов в каждой
строке

const n=100;

m=100;

var A: array[1..n,1..m] of integer;

i,j,maxi,maxj,k: integer;

begin

randomize;

for i := 1 to n do begin

    for j := 1 to m do begin

        A[i,j] := random(100);

    end;

end;

maxi := 1;

maxj := 1;

for i := 1 to n do begin

    for j := 1 to m do begin

        if (A[i,j] > A[maxi,maxj]) then begin

            maxi := i;

            maxj := j;

        end;

    end;

end;

k := 0;

for i := 1 to n do begin

    for j := 1 to m do begin

        if (A[i,j] == A[maxi,maxj]) then k := k + 1;

    end;

end;

writeln('k = ', k);

end.

var
  a, st, summ, pr, count, min, max, count0, SummCh, pr3:integer;
begin
  write('Введите число '); readln(a);

  writeln;
  writeln('Младшая цифра числа: ', a mod 10);

  max := a mod 10;

  min := max;

  Summ := 0;

  SummCh := 0;

  pr := 1;

  count := 0;

  count0 := 0;

  pr3 := 1;

  while a <> 0 do

  begin

    count := count + 1;

    Summ := summ + a mod 10;

    pr := pr * (a mod 10);

    if (a mod 10) mod 2 = 0 then

      SummCh := SummCh + a mod 10;

    if (a mod 10 <> 0) and ((a mod 10) mod 3 = 0) then

      Pr3 := Pr3 * (a mod 10);

    if a mod 10 = 0 then

      count0 := count0 + 1;

    if a mod 10 > max then

      max := a mod 10;

    if a mod 10 < min then

      min := a mod 10;

    if a div 10 = 0 then

      St := a mod 10;

    a := a div 10;

  end;

  writeln('Старшая цифра числа: ', St);

  writeln('Сумма цифр числа: ', Summ);

  writeln('Произведение цифр числа: ', Pr);

  writeln('Количество цифр числа: ', count);

  writeln('Минимальная цифра числа: ', min);

  writeln('Максимальная цифра числа: ', max);

  writeln('Количество нулевых цифр: ', count0);

  writeln('Сумма четных цифр: ', SummCh);

  writeln('Произведение цифр кратных 3: ', Pr3);

  writeln;
end.