Упорядочить все строки матрицы по числу элементов, кратных 3, т.е. на первое место поставить строку с наименьшим числом таких элементов

[Андрей3636]

Упорядочить все строки матрицы по числу элементов, кратных 3, т.е. на первое место поставить строку с наименьшим числом таких элементов и т.д., на последнее место - с наибольшим числом таких элементов.

Помогите очень нужно

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var p:array[1..8,1..10] of integer;
    c:array[1..8] of integer;
    i,j,z:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 8 do
   begin
      c[i]:=0;
      For j:=1 to 10 do
         If p[i,j] mod 3=0 then
            Inc(c[i]);
   end;
   Repeat
      d:=true;
      For i:=2 to 8 do
         If c[i-1]>c[i] then
         begin
            d:=false;
            z:=c[i];
            c[i]:=c[i-1];
            c[i-1]:=z;
            For j:=1 to 10 do
            begin
               z:=p[i,j];
               p[i,j]:=p[i-1,j];
               p[i-1,j]:=z;
            end;
         end;
   Until d;
   For i:=1 to 8 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln('- ',c[i]);
   end;
   Writeln;
   Readln;
end.