• 1) Дан массив целых чисел, содержащий 15 элементов. Вывести на экран индексычетных элементов массива.

    2) Сформировать массив из n случайных чисел от 0 до 86. Найти сумму чисел кратных 3.

    3) С клавиатуры вводится массив из m чисел. Найти сумму элементов массива.

    4) Сформировать массив из n случайных чисел на промежутке [-60;60]. Найти сумму чисел больших нуля.

    Что сможете, пожалуйста

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  // №1  var a:=ArrRandom(15,-50,50); a.Println;  a.IndexesOf(t->t.IsEven).Select(t->t+1).Println;  // №2  var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;  a.Where(t->t mod 3=0).Sum.Println;  // №3  var c:=ReadArrInteger(ReadInteger('m='));  c.Sum.Println;  // №4  var d:=ArrRandom(ReadInteger('n='),-60,60); d.Println;  d.Where(t->t>0).Sum.Printlnend.Пример41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 73 6 9 10n= 130 63 53 71 35 56 34 86 31 15 84 74 3533 m= 813 -12 54 11 47 0 42 100255 n= 1852 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44362
    • Автор:

      rhysr6ig
    • 1 год назад
    • 9
  • Добавить свой ответ

Войти через Google

или

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

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

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