В программке pascalABC.NET1)Сделать при подмоги генератора случайных чисел одномерный массив
В программке pascalABC.NET
1)Сделать при поддержки генератора случайных чисел одномерный массив размером [100], и вывести на печать раздельно элементы великие 5.
2)Дан массив из 10 элементов, посчитать среднеарифметическое значение.
3) Дан массив из 10 элементов, получить другой, состоящий из квадратов этих частей.
1 ответ
Данька Чавусер
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
// 1
var a:=ArrRandom(100,-20,20); a.Println;
a.Where(x-gt;xgt;5).Println;
// 2
var b:=ArrRandom(10,-50,50); b.Println;
Writeln(b.Average);
// 3
var c:=ArrRandom(10,-30,30); c.Println;
var d:=c.Select(x-gt;x*x); d.Println
end.
Пример
3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12
17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12
-32 1 24 -36 -37 -14 45 -26 -11 20
-6.6
6 11 -25 19 1 19 3 0 -14 13
36 121 625 361 1 361 9 0 196 169
// Внимание! Если программа не работает, обновите версию!
begin
// 1
var a:=ArrRandom(100,-20,20); a.Println;
a.Where(x-gt;xgt;5).Println;
// 2
var b:=ArrRandom(10,-50,50); b.Println;
Writeln(b.Average);
// 3
var c:=ArrRandom(10,-30,30); c.Println;
var d:=c.Select(x-gt;x*x); d.Println
end.
Пример
3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12
17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12
-32 1 24 -36 -37 -14 45 -26 -11 20
-6.6
6 11 -25 19 1 19 3 0 -14 13
36 121 625 361 1 361 9 0 196 169
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов