Задача на двумерный массив

[maliyusha]

Здравствуйте,программисты! Пожалуйста,помогите с задачей! Для меня программирование это что-то нереальное,думаю для вас,как два байта переслать

Задача:
Определить количество положительных элементов xk (х с коэффициентом k) каждого столбца матрицы X и переписать их в одномерный массив (вектор) M.

Очень при очень нужно,метод половинного деления и метод трапеций освоила,а вот массив не могу. Пожалуйста,сделайте программку.

[maliyusha]

На сайте так много талантливых программистов и неужели никто не может сделать такую задачку? Я искала в интернете,но ничего подобного не нашла! Пожалуйста,откликнетесь хоть кто-нибудь!

[maliyusha]

Сейчас буду долго долго... плакать

[puporev]

Ладно, Киса, не реви.

uses crt;
const n=6;
         l=8;
var x:array[1..n,1..l] of integer;
    m:array[1..l] of integer;
    i,k,kp:integer;
begin
clrscr;
randomize;
writeln('Matrica X:');
for i:=1 to n do
  begin
     for k:=1 to l do
       begin
         x[i,k]:=random(10)-4;
         write(x[i,k]:4);
       end;
     writeln;
   end;
for k:=1 to l do //идем по столбцам слева направо
   begin
     kp:=0;
     for i:=1 to n do //идем по строке сверху вниз
     if x[i,k]>0 then kp:=kp+1;//считаем положительные в столбцах
     m[k]:=kp;//заносим в массив
   end;
writeln('Massiv M:');
for k:=1 to l do
write(m[k],' ');
readln
end.

[_GOMER_]

program dl9tab9;
uses wincrt;
var x:array [1..50,1..50] of integer;
a:array [1..50] of integer;
i,j,k,n,S:integer;
begin
writeln ('Введите количество столбцов в массиве Х '); readln(n);
writeln ('Введите количество строк в массиве Х'); readln (k);
for i:=1 to n do a[i]:=0;
{for i:=1 to k do begin
for j:=1 to n do read (x[i][j]); writeln; }
for i:=1 to k do begin writeln;
for j:=1 to n do begin x[i][j]:=random(20)-10; write (x[i][j]:4,' ');
if x[i][j]>0 then a[i]:=a[i]+1;
end;
write ('количество положительных элементов ',a[i]);
end;
end.

[maliyusha]

Огромное спасибо !!!!! Я вас всех очень при очень люблю