tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Создать массив a из десяти
Создать массив a из десяти целых чисел, принадлежащих промежутку [0; 23]. вывести полученный массив на экран. подсчитать т количество элементов массива, значение которых не превышает 20, но больше 18
Печенькавасилиса
3 16.09.2019 19:00
0
Ответы
Ananasik3333
07.10.2020 20:19
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(10,0,23); a.Println;
var t:=a.Where(t->t<=20).Where(t->t>18).Count;
Println('t=',t);
end.
Пример:
8 14 20 19 16 6 20 0 2 2
t= 3
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Yana19032003
07.09.2019 01:30
Переведите числа в десятичную систему счисления 111010001101...
Настюнькаz
07.09.2019 01:30
Квадрат,круг,ромб,треугольник вырезаны из белой,синей,красной и зеленой бумаги.известно,что круг не белый и не зеленый; синяя фигура лежит между ромбом и красной фигурой;...
tarasova19781
27.04.2020 09:29
Для записи чисел в восьмеричной системе счисления используются цифры:3221169...
kyrenkovalena8
27.04.2020 09:29
Ребят Определите, что будет напечатано в результате работы следующей программы. У := 5; For і := 2 to 6 do у := у + 3*і; Writeln(у); 2. s := -4 ; fork:= 1to6do s := s +...
rama25
21.04.2021 13:32
Составьте блок схему для алгоритма уборка квартиры с пылесоса ...
liteman1000ow7ldr
28.05.2020 20:01
На паскале: в группе 15 человек. найти количество человек из группы, чей рост не ниже 165....
fiestrigha00p01bgj
28.05.2020 09:16
Элементами множества А являются натуральные числа. Известно, что выражение (x∈ {2, 4, 6, 8, 10, 12}) → (((x ∈{3, 6, 9, 12, 15}) ^ ¬(x∈A)→¬(x ∈{2.4.6.8.10.12})) истинно (т....
Зубканай
28.05.2020 20:26
с паскалем ПРИМЕР: var x, y : real; a, b : integer; begin; write ( Введіть x= ); readln (x); write ( Введіть a= ); readln (a); write ( Введіть с паскалем ПРИМЕР: var x,...
Alla950
21.12.2020 00:51
Дан одномерный целочисленный массив с индексами от 1 до 7. Напишите программу, которая находит произведение четных двухзначных чисел, оканчивающихся на 2 (имеется ввиду...
Дженитка
21.12.2020 00:53
Інформатика, програмування мовою Python, цикл + розгалуження. До ть будь ласка скласти програму: Обчислити значення виразу z = (а + 2b)/(а – 3b), де а, Ь — дійсні числа,...
Популярные вопросы
Сочинение как я провела лето в лесу...
3
Y= найдите область определения функции y. сделайте с решением ....
1
Выпиши из предложения словосочетания с вопросами. в зеленой траве шелестит...
1
Какая рыба лишняя и почему? 25 1) угорь,лосось,карась,морская форель...
2
Укажите наименьшее значение функции: a) y=|x-2|+|x-3|; b) y=|x|+|x-2|....
3
Вычислите значение вырожения используя свойство степени произведения...
2
ответь на вопросы кратко from the editor — от редактора we would like...
2
Между какими ближащими натуральными числамизаключина сумма 2 9/20+18...
3
Вравнобедренной трапеции основания равны 7см и 23 см.высота трапеции...
2
Напишите лекарственные растения москвы...
1
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(10,0,23); a.Println;
var t:=a.Where(t->t<=20).Where(t->t>18).Count;
Println('t=',t);
end.
Пример:
8 14 20 19 16 6 20 0 2 2
t= 3