profile
Размещено 5 лет назад по предмету Информатика от nastiyamoroz7l

Для заданного одномерного массива целых чисел выполнить последовательно следующие опции: найти количество и сумму чисел имеющих свойство А; переписать в другой массив числа, имеющий свойство Б; все числа, имеющие свойства В, заменить заданным числом Z1; упорядочить массив по не убыванию; удалить из него все числа, имеющие свойство Г; вставить в нужное место массива заданное число Z2, если его там нет.
а) меньше своих соседей
б) положительно
в) наименьшее
г) не кратно заданным P и Q

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

    begin
      var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println;
      (var k,var s):=(0,0);
      for var i:=1 to m.Length-2 do
        if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]);
      Writeln('Свойство А: кол-во=',k,', сумма=',s);
      var mb:=m.Where(x->x<0).ToArray;
      Write('Свойство Б: '); mb.Println;
      var z:=ReadInteger('Z1=');
      var mmin:=m.Min;
      m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println;
      m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println;
      var p,q:integer; Write('Введите P Q: '); Read(p,q);
      m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray;
      Writeln('Свойство Г:'); m.Println;
      z:=ReadInteger('Z2=');
      p:=m.FindIndex(x->x>=z);
      if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray;
      Writeln('После попытки вставки:'); m.Println
    end.

    Пример
    n= 17
    3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7
    Свойство А: кол-во=6, сумма=-72
    Свойство Б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7
    Z1= -33
    Свойство B:
    3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7
    Упорядоченность по неубыванию:
    -33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12
    Введите P Q: 3 7
    Свойство Г:
    -13 -5 -5 5 8 8 11
    Z2= 0
    После попытки вставки:
    -13 -5 -5 0 5 8 8 11
    1. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      *Но
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
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) их не спросили

Информация

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