profile

Опубликовано 5 лет назад по предмету Информатика от mashaaq

дана матрица А(n*m). получить вектор b1(), b2(), ...,b(n), где b(i) равно количеству отрицательных элементов в строке.

  1. Ответ
    Ответ дан Alphaeus

    Проверено - работает на Паскаль АВС

     

    Program mashaaq;
    uses crt;
    const n=12;
    const m=15;
    var
      a:array[1..n,1..m] of integer;
      b:array[1..n] of integer;
      i,j,minus : integer;
    begin
      Randomize;
      for i:=1 to n do
        for j:=1 to m do
          a[i,j]:= Random(101)-50; //заполняем массив случайными числами
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      for i:=1 to n do //просматриваем строки сверху вниз
        begin
          minus:=0;
          for j:=1 to m do //просматриваем строку
            if a[i,j]<0  then minus:=minus+1; //если найден отрицательный элемент, увеличиваем счётчик minus на единицу
          b[i]:=minus; //сохраняем значение счётчика для i-й строки
        end;
      writeln;
      {выводим матрицу А и вектор результатов В}

      {в красивой рамочке :)}
      writeln('**************************************************************************');
      writeln('*                              Массив                           * Вектор *');
      writeln('**************************************************************************');
      for i:=1 to n do
        begin
          write ('* ');
          for j:=1 to m do
            write(a[i,j]:4); //выводим строку массива
          writeln('  *   ',b[i]:2,'   *');  //дописываем справа значение вектора В для этой строки
        end;  
      writeln('**************************************************************************');
    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Danon227
Биология - 2 недели назад

Соотнесите фазы мейоза и их характеристику. профаза 1 метафаза 1 анафаза 1 телофаза 1 профаза 2 метафаза 2 анафаза 2 телофаза 2 а)гомологичные хромосомы попарно располагаются на экваторе, формируется веретено деления б)хромосомы становятся видимыми, расхожление центриолей к полюсам. происходит коньюгация кроссинговер, ядерная оболочка исчезает в) формируется ядерная оболочка, веретено деления разрушается. образуется две клетки г)возникают хромосомные рекомбинации, гомологичные хромосомы, состоящие из 2 хроматин, расходятся к полюсам д) разрушается ядерная оболочка, формируется веретено деления, каждая хромосома состоит из двух хроматид е) хроматиды отходят к противоположным полюсам ж) формируется ядерная оболочка, цитокинез, образуется 4 новых клетки з)хромосомы располагаются в плоскости экватора прошу помогите пожалуйста (

Хаааа
Математика - 1 месяц назад
Хаааа
Математика - 1 месяц назад