profile
Опубликовано 5 месяцев назад по предмету Информатика от kongsidara4

дан массив R(M,N). Заменить в массиве все положительные элементы на 0, а отрицательные на 1. Посчитать количество нулей и единиц .

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.2, сборка 1417 от 28.03.2017
    // Внимание! Если программа не работает, обновите версию!

    begin
      var m:=ReadInteger('Количество строк в массиве:');
      var n:=ReadInteger('Количество столбцов в массиве:');
      Writeln('*** Исходный массив [',m,',',n,'] ***');
      var a:=MatrRandom(m,n,-99,99);
      a.Println(4); Writeln(4*a.ColCount*'-');
      Writeln('*** Результат ***');
      a.Transform(x->x>=0?0:1); a.Println(4);
      var s:=a.ElementsByRow;
      Writeln('Нулей- ',s.Where(x->x=0).Count,', единиц- ',
          s.Where(x->x=1).Count)
    end.

    Пример
    Количество строк в массиве: 4
    Количество столбцов в массиве: 5
    *** Исходный массив [4,5] ***
     -19  61 -47 -38 -26
     -95 -35 -56  43  40
       0 -52 -87 -85  93
     -68  48 -55   5 -93
    --------------------
    *** Результат ***
       1   0   1   1   1
       1   1   1   0   0
       0   1   1   1   0
       1   0   1   0   1
    Нулей- 7, единиц- 13
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
tegysigalpa2012
Русский язык - 1 год назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили