задача для Turbo Pascale

[Wlg]

дан двухмерный массив размером m*n. найти кол-во положительных элем-ов каждого столбца массива. из первых четырёх строк массива сформировать четыре новых вектора (одномерных массива) и в каждом из них удалить все эл-ты меньше значения k! ( желательно решить как можно скорее)

[min@y™]

желательно решить как можно скорее

весь штат сотрудников поднят по тревоге, босс!
куда доставить результаты?

[Wlg]

да сюда результат и доставить) я не просил поднимать весь штаб,но за помощь буду очень признателен

[min@y™]

Большая ссылка!

[newerow1989]

куда доставить результаты?

СЮДА!!!

const m=10;
      n=8;
      k=-2;
var p:array[1..m,1..n] of integer;
    i,j,c: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 j:=1 to n do
   begin
      c:=0;
      For i:=1 to m do
         If p[i,j]>0 then
            c:=c+1;
      Write(c:3,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 4 do
   begin
      For j:=1 to n do
         If p[i,j]>=k then
            Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?