Работа в паскале.
1)Дана матрица A(N,M). получить вектор B(N), компоненты которого находятся по правилу: B[i] равно количеству положительных чисел, c которых начинается i-ая строка
2)Из заданной матрицы A(N,M) удалить k-ый столбец. Полученную матрицу уплотнить.

const n=10; m=8;

var a:array[1..n,1..m] of integer;

b:array[1..n] of integer;

i, j: integer;

begin

writeln('Исходная матрица:');

for i:=1 to n do

begin

for j:=1 to m do

 begin

  a[i,j]:=random(20)-5;

  write(a[i,j]:4);

 end;

writeln;

end;

for i:=1 to n do

begin

j:=1;

while (j<=m)and(a[i,j]>0) do j:=j+1;

b[i]:=j-1;

end;

writeln('Полученный массив:');

for i:=1 to n do write(b[i]:3);

writeln;

end.

Пример:

Исходная матрица:

 14  13   1   9   9   8  -5  10

 13  -4  -2   7   1   5  10  -5

  3   2   6  14  12   5   5  11

  6  -2   8   3   3  -1  -4   8

  9   0  -1  -3   2   6  12   8

 -1  -2   0   3   4  -3  10   5

  8  11  -3   2  12   1   8   7

 13   7  13  11   8  -3   6   1

 11   6   1  -1  14   7  -2   5

  0  13  -3   4  14   2   2   3

Полученный массив:

 6  1  8  1  1  0  2  5  3  0