Сформировать из строк В матрицу С, расположив их так, чтобы количество положительных элементов в строке возрастало с увеличением порядкового номера строки; в матрице C найти

[Delacroix]

Pascal
Условие задачи:
а) Сформировать из строк В матрицу С, расположив их так, чтобы количество положительных
элементов в строке возрастало с увеличением порядкового номера строки;
б) в матрице C найти сумму элементов столбцов с нечетными номерами.

[NetSpace]

за 1000 рублей я вам и программу с исходником и даже отчёт в рукописной форме по сделанной программе накатаю с нуля.
а если не с нуля, то, значит, есть у вас есть свои наработки, которые вы хотите нам показать, то мы обязательно поможем чем сможем и исправим ваши ошибки.
готовы к такому сотрудничеству???

[newerow1989]

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