1. Информатика
  2. Нужна дан массив из 50

Нужна дан массив из 50 элементов, значения которых формируются случайно и лежат в диапазоне от -50 до 49 включительно. требуется вывести значения в диапазоне от -5 до 5 включительно и подсчитать их количество. написать на языке паскаль

densher412 densher412    2   02.10.2019 08:02    26

Ответы
adilymnuk adilymnuk  09.10.2020 11:18
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(50, -50, 49);

 a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println

end.


Нужна дан массив из 50 элементов, значения которых формируются случайно и лежат в диапазоне от -50 д
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
илья1948 илья1948  13.04.2021 19:49
d) В зависимости от варианта наделить смарт-контрак функцией (В нашем случае: любой пользователь может ставить «Like» визитки, выводить сколько «Like» набрала визитка)....
aruka10511 aruka10511  13.04.2021 19:49
Написати програму, яка шукає суму чисел від m до n (за до циклу while), числа m і n вводяться з клавіатури....
repoli433 repoli433  13.04.2021 19:51
Який оператор відповідає подані блок-схемі​...
Bois123543 Bois123543  27.11.2020 13:08
Определите, какое значение принимает выражение (AvB&C), если А= 1, ВО, СОМой ответ​...
жони12 жони12  30.11.2020 13:28
Какое наименьшее десятичное число в двоичной системе счисления содержит ровно восемь нулей? В качестве ответа запишите десятичное число....
savchenko29 savchenko29  30.11.2020 13:28
0.3(8) перевести в восьмиричную систему счисления​...
Kristina238485 Kristina238485  30.11.2020 13:28
информатиказадание:ответить на вопросы...
stalker1897ox9hzs stalker1897ox9hzs  30.11.2020 13:28
Вычислите значение заданной функции, если Х изменяется от Хнач до Хкон с шагом дельтаХ (в качестве исходных данных может использоваться другая переменная. Если при...
Ashhhhhhhhhhhhh Ashhhhhhhhhhhhh  30.11.2020 13:28
Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln(n); if n 5 then begin F(n+1); F(n+2); F(n*3) end end; Найдите сумму чисел, которые будут выведены...
alferovasnega alferovasnega  30.11.2020 13:29
Напишите программу в Pascal, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3 (используйте условие x mod 10=3). Программа...

Популярные вопросы