Заполнить массив из 10 частей случайными числами от -20 до 10.

Заполнить массив из 10 элементов случайными числами от -20 до 10. Вывести количество отрицательных частей

Задать свой вопрос
1 ответ
PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(10,-20,10); a.Println;
  Writeln('Отрицательных частей: ',a.Where(t-gt;tlt;0).Count)
end.

Пример
-8 -18 2 -7 9 -14 -2 -12 2 7
Отрицательных элементов: 6
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт