Работа в паскале. 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

Троичная

Объяснение:

Вроде правильно