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

Ответы 2

  • Петр, сделайте еще пожалуйста 2 задание
    • Автор:

      chloe43
    • 5 лет назад
    • 0
  • 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

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years