Дана целочисленная матрица размером NxN. В строках,содержащих

[Анна997]

Дана целочисленная матрица размером NxN. В строках,содержащих наибольшее количество положительных элементов , все четные элементы увеличить на младшую цифру первого элемента этой строки

[min@y™]

Разрешите приступить, Выше Высочество?

[Анна997]

Разрешаю, можете приступать

[min@y™]

Разрешаю, можете приступать

Вот спасибо, радость-то какая!
Неистово кодю...

[newerow1989]

Не совсем понял:

содержащих наибольшее количество положительных элементов

а если встретится 1 строка, то в одной строке сделать?
Тоже не совсем:

младшую цифру

Ниже код для всех строк

const m=10;
      n=8;
var p:array[1..m,1..n] of integer;
    i,j:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to m do
      For j:=2 to n do
         If j mod 2 = 0 then
            p[i,j]:=p[i,j]+p[i,1];
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.