profile
Размещено 4 года назад по предмету Информатика от xttpxl1

в паскале нужно это все сделать СРОЧНО!!!
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и минимальными элементами.
Упорядочить элементы массива по возрастанию.
2. Дана целочисленная прямоугольная матрица. Определить:
1) количество строк, не содержащих ни одного нулевого элемента;
2) максимальное из чисел, встречающихся в заданной матрице более одного раза.

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

    begin
      var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
      a.Println;
      Writeln('1: ',a.Where(t->t<0).Sum);
      a.Sort; // по возрастанию
      a.Println;
      Writeln('2: ',a[a.IndexMin+1:a.IndexMax].Aggregate(1.0,(x,y)->x*y))
    end.

    Пример
    n= 13
    -3 6 -2.3 -7.5 -1.6 8.4 -4.7 -2.8 9.9 -3.3 -0.7 0.9 -8.8
    1: -34.7
    -8.8 -7.5 -4.7 -3.3 -3 -2.8 -2.3 -1.6 -0.7 0.9 6 8.4 9.9
    2: 114175.0608768

    // PascalABC.NET 3.3, сборка 1600 от 23.12.2017
    // Внимание! Если программа не работает, обновите версию!

    begin
      var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
      Writeln('*** Исходная матрица ***');
      var a:=MatrRandom(m,n,-20,20);
      a.Println(4); Writeln(4*a.ColCount*'-');
      Writeln('1: ',a.Rows.Where(r->r.All(t->t<>0)).Count);
      Writeln('2: ',a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
          .Where(t->t[1]>1).MaxBy(t->t[0])[0])
    end.

    Пример
    Количество строк и столбцов в матрице: 7 20
    *** Исходная матрица ***
      -9   9  16  -5  18  -1 -12 -13 -19 -12   8 -19 -18  20 -16   9  -7  17 -19   1
       8   2  18  -7 -16   3  15  19 -11 -10  -9  -4  16  -4  18  10  15  10 -17   6
     -19 -15 -14  15  11 -13   3   0   1  -6 -17 -17 -14  -4  -2  10  11   3  -9  -6
       5 -11  18  11  18  -8 -14   6 -18  -5  15   4  13  -5  -1   3  -4 -18   2  18
     -20  -5  -2  16 -13 -13 -11  -1  19 -12  19  -9  -1  10 -19  13 -13  -5  18  -1
     -19  18  -2 -14  -1   0 -10  12  17  16  -7   9 -20  -7  -6 -10  12 -18   4  10
     -18   7   7  15  -4   3 -15 -17  -7   7  -5 -20 -16 -17  17 -17  18  -8  -3   7
    --------------------------------------------------------------------------------
    1: 5
    2: 19
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 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) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.