tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найдите количество превышающих
Найдите количество превышающих 4 в паскале
ASabina1111111
3 30.08.2019 20:50
1
Ответы
kirill163aye
03.08.2020 12:21
Begin
var a:=ArrRandom(10, -10,10);
a.Println();
writeln(a.Where(x->x>4).Count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Gurza97
03.08.2020 12:21
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.
Пример
n= 5
3 7 0 -5 9
2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ник3123
10.10.2021 05:32
1. Как называется представление информации с двоичного алфавита? 1 Двоичное кодирование 2 кодирование 3 3апись с двоичного кода 4 Дос-кодирование 2. Как называется процесс...
Erekcia
14.03.2021 21:40
❤️ Домашние задание Для следующих задач выполните: 1) Определить входные и выходные величины; 2) Записать словесный алгоритм; 3) Записать алгоритм в виде блок-схемы. Задача...
380973599293
28.10.2020 21:39
Записать простой алгоритм по информатике...
kfisatidi
28.10.2020 21:38
Подскажите Какой тип переменой должен быть в Паскале для числа i:=40000000000...
ЯковНосков
28.10.2020 21:38
Язык напишите все понятным для начинающего языком, без каких то неизвестных библиотек и тп. Заранее благодарю! Напишите программу, которая вычисляет значение арифметического...
Cheter22871
28.10.2020 21:38
Ойын программасын куру барысында кандай блоктарды колдандык...
ElliDi11
28.10.2020 21:38
В театральной студии 78 учащихся .Коды учащихся записаны в информационной системе с минимального количества бит. Каков информационный объем в байтах сообщение о кодах 30...
skuzembaeva
19.12.2020 14:08
Як розмистити Поле на форми?...
vaniaslavioglo
17.04.2019 06:50
Ветхозаветные персонажи, размышления о которых занимают центральное место в произведениях Серена Киркегора...
nik232451
17.04.2019 06:50
К основным идеям либеральной теологии относятся идеи неразрывности человеческого мира и Бога...
Популярные вопросы
Запишите уравнения, характеризующие химические свойства азота, фосфора,...
2
Математика 6 класс Найдите целые решения системы неравенств. { 4,8х −...
3
520 * 250 301 * 299 325 * 316 200 + 40 * 80 + 100 700 + 8 * 70 + 800...
3
1. Преобразовать в полином а) (х + 4у), б) (2а-б)?, [3] 2. Разделить...
2
Цитата урока: «Недоверие обманывает нас чаще, чем доверие». Ж.Рец(французский...
3
Атмосфералық қысымның тіршілік иелеріне әсер етуін түсіндіріңіз өтініш...
3
Томендегы суретке сай журетын химиялык реакция тендеу аныкта...
2
х 1.5. Виконайте додавання у 8x+y? А) 4y 4 + x + У. 4 2x +y, Б) -; B)...
1
5сынып Қазақ әдебиет Бой жағынан қарайлас бозбала төніп қалғанда:-Бар...
3
В треугольнике mpk m=60 p=80 pp1-биссектриса угла mpk,pp1=5см.Найдите...
2
var a:=ArrRandom(10, -10,10);
a.Println();
writeln(a.Where(x->x>4).Count);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.
Пример
n= 5
3 7 0 -5 9
2