1) Дан массив целых чисел, содержащий 15 частей. Вывести на экран
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-gt;t.IsEven).Select(t-gt;t+1).Println;
// 2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t-gt;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-gt;tgt;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
Внимание! Если программа не работает, обновите версию!
begin
// 1
var a:=ArrRandom(15,-50,50); a.Println;
a.IndexesOf(t-gt;t.IsEven).Select(t-gt;t+1).Println;
// 2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t-gt;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-gt;tgt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов