tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заполнить массив из 10
Заполнить массив из 10 элементов случайными числами от -20 до 10. вывести количество отрицательных элементов
VladBugorkov
3 26.09.2019 20:30
1
Ответы
DsBrend11
08.10.2020 21:07
PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,10); a.Println;
Writeln('Отрицательных элементов: ',a.Where(t->t<0).Count)
end.
Пример
-8 -18 2 -7 9 -14 -2 -12 2 7
Отрицательных элементов: 6
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
matuxh
06.12.2020 14:04
Сравни датчик света и ультразвуковой датчик, определи сходства и различия...
Abrak24
16.11.2020 20:32
Пусть высказывание А- это ночь звёздная,B- ночь холодная , выразите следующие формулы на обычной языке.1.A\/B2.не A/\B3.не А\/не В4.А/\не В5.не А\/В...
Алина06072003
12.09.2019 19:10
Переведите код с qbasic на pascal, : sub pq(n as long) if n then m = int(sqr(n)) print m; call pq(n - m ^ 2) end if end sub...
alisa0901
12.09.2019 19:10
Какой тип информации позволяет вводить сканер?...
aasybas
24.10.2021 22:40
ВИЗНАЧИТИ МІСЦЕ РОЗМІЩЕННЯ КОЖНОГО З ГЕОМЕТРИЧНИХ ТІЛ ВІДНОСНО ІНШИХ ДЛЯ НАВЕДЕНИХ ТРЬОХ ВАРІАНТІВ. РЕЗУЛЬТАТИ ЗАНЕСТИ У ТАБЛИЦЮ, ПОЗНАЧИВШИ МІСЦЕ НА ПЕРЕДНЬОМУ...
bdhdt
24.10.2021 22:36
Установите соответствие. Свойство Описание I Точность A Выражано на доступном языке II Ясность B вовремя, в нужный срок C имеются все необходимые данные III Полнота...
mcpoh288
24.10.2021 22:26
Во время тестирования PVP режима, каждый из игроков пробежал некоторое расстояние. Если Красный игрок сейчас сдастся, то награда Синего составит на 550.0 робаксов...
морол
02.09.2020 18:52
Алфавит қуатылған 32 симвл, ақпарат көлемі 2,5 Кбайтболса, мәтінде қанша симвл бар...
Dinastita
08.08.2019 01:30
Что означает ,что средняя скорость поезда 50 км ч...
Лизка250515
08.08.2019 01:30
Как решить пример 98: 12 и 79: 15 заранее...
Популярные вопросы
В прямоугольном треугольнике АВС с прямым углом Спроведена высота...
3
Написати 3 цікавих зичая будь яких національностей...
2
6. Прочитай текст. Выпиши только те предложения в есть однородные...
2
Синтаксический разбор: Русская природа весной преподносит нам...
3
Очень важно для меня и не только для меня! Буду очень благодарен...
1
Установіть відповідність між реагентами та продуктами реакції...
2
At New Year, people celebrate by lighting?...
2
1 Mum and dad do the shopping every Saturday morning.2 Can youthe...
2
До іть з хімією будь ласка...
3
Прочитайте выводы к параграфу Составьте вопросы к каждому выводу...
2
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,10); a.Println;
Writeln('Отрицательных элементов: ',a.Where(t->t<0).Count)
end.
Пример
-8 -18 2 -7 9 -14 -2 -12 2 7
Отрицательных элементов: 6