Войти Регистрация Спроси ai-bota

Найдите количество превышающих 4 в паскале

Показать ответ

Ответ:

Гоша2285

03.08.2020 12:21

Begin
var a:=ArrRandom(10, -10,10);
a.Println();
writeln(a.Where(x->x>4).Count);
end.

0,0(0 оценок)

Ответ:

Таня13151814

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

0,0(0 оценок)

Популярные вопросы: Информатика

zorynastya

22.04.2022 08:23

С какой клавиши редактируется значение в ячейке таблицы, не стирая его? * F2 ВВОД TAB Правая кнопка мыши...

Доминатр

03.09.2021 08:22

=ЗАМЕНИТЬ(A1; 8;4; “2013”) =ЗАМЕНИТЬ(A1; 7;4; “2013”) =ЗАМЕНИТЬ (A1; 8;1; “2013”) =ЗАМЕНИТЬ(«2010»; “2013”) Назад Проверить !!...

katyaaaasd

29.01.2021 03:12

умоляю выполнить 4-ый вопрос:...

Bakha111

16.11.2022 03:05

Какое условие пропущено в этом цикле перевода натурального числа n в восьмеричную систему счисления? repeat str (n mod 8, c); r:=c+r; n:=n div 8; until ?...

cactuscus

23.08.2021 13:33

Информационный объём текста, подготовленного с компьютера, равен 10 Мб. 1символ весит 1 байт. Сколько символов содержит этот текст?ответ: символов....

wagnercop06s12

09.10.2021 05:33

Жазылған сөз (әдеби туындылар, шығарма з (әдеби туындылар, шығарма, құжат және т.с.с. н үзінділері мен бөліктері) деп аталады (орыс тілін- Яғни олардың үзінділері мен бе дегі...

Djdjjdjdjdjddjjx

19.04.2021 11:44

Скільки ітерацій виконає цикл for i in range(3.5): ?...

лиззка16

15.03.2020 15:52

Какой тип структуры в графе под названием сеть?...

echo2

15.03.2020 15:52

Дан одномерный массив. запиши верный ответ. −20 24 0 −1 4 11 значение элемента массива — -1. индекс элемента массива — ?...

Anneli1

15.03.2020 15:52

Дано описание массива: constb: array[1..5]ofinteger=(3,13,8,62,104); верно ли описан массив?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку