1) дан массив целых чисел, содержащий 15 элементов. вывести на экран индексычетных элементов массива. 2) сформировать массив из n случайных чисел от 0 до 86. найти сумму чисел кратных 3. 3) с клавиатуры вводится массив из m чисел. найти сумму элементов массива. 4) сформировать массив из n случайных чисел на промежутке [-60; 60]. найти сумму чисел больших нуля. что сможете,

dashagorlova2 dashagorlova2    2   23.09.2019 22:40    0

Ответы
89271870095 89271870095  08.10.2020 13:31
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.Println
end.

Пример
41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 7
3 6 9 10
n= 13
0 63 53 71 35 56 34 86 31 15 84 74 35
33
m= 8
13 -12 54 11 47 0 42 100
255
n= 18
52 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44
362
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика