tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить и программно
Определить и программно заполнить одномерный массив , состоящий из 10 элементов . вычислить количество элементов массива , принадлежащих промежутку от a до b , которые затрагиваются у пользователя, результат вывести на экран.
gelya12121
1 09.06.2019 01:20
0
Ответы
killlergames
07.07.2020 23:25
Const n = 10;
var a, b, i, k : integer;
mas : array[1..n] of integer;
Begin
read(a, b);
randomize();
k := 0;
for i := 1 to n do begin
mas[i] := random(50);
if (mas[i] >= a) and (mas[i] <= b) then
k := k + 1;
end;
writeln(k);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
OOAAAOO
24.08.2019 12:30
Введены 2 числа, a и b,выясните, имеет ли решение уравнение 1/(a+b). , . нужно написать программу в паскале (через операторы else, if, then)...
liusen
24.08.2019 12:30
Впоезде нечетные места снизу,а четные сверху.едут алеша,боря,вася и гриша.укажите первые буквы именно,занимающих первое,второе,третье и четвертое места если даны: а:...
DimaKot2
24.08.2019 12:30
Составить программу на в небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .человек садится в лифт и нажимает...
GorkiyShokolaD
21.08.2019 05:20
Что вы понимаете под текстовым документом...
tanyaraeva2017
21.08.2019 05:20
Соедини каждый рисунок с парой множеств множество апельсинов множество яблок множество сладких фруктов множество яблок множество яблок множество кислых яблок...
жансаяболатова
27.04.2021 11:11
3. Незаконное использование чужого произведения с именем автора 4. Общий плод творчества Шота Уалиханова и Жандарбека Малибекова тут надо одно слово чтоб было ...
lhukotunl
27.04.2021 11:11
Определи признаки наличия вирусов на компьютере. В данном вопросе несколько вариантов ответа1)компьютер работа с медленно, везависает»2)невозможно создавать архивы3)проблемы...
Ирина1895031
27.04.2021 11:12
1. Что такое оглавление? В чем его отличие от содержания? 2. Какие виды оглавлений тебе известны?3. С каких стилей можно создавать оглавления?4. Как можно составить...
BeNetCat
27.04.2021 11:12
12 задачу решите , практическая работа❤❤❤❤...
zhuravskaya1991
23.05.2019 11:20
1) световое табло состоит из лампочек. каждая лампочка может находиться в одном из трех состояний («включено», «выключено» или «мигает»). какое наименьшее количество...
Популярные вопросы
До якого виду належить казка бiда навчить, якi основнi ознаки спiльнi...
3
Характеристика героїв твору ніч перед боєм...
2
Переведи плз 560м= 4500 дм=..м 60200см= 5м 87 см=...
1
Женя составила шесть трехзначных чисел из цифр 2,5и7 ( цифры в каждом...
3
Progress test 9 class what is the weather like in january? a)it...
3
Скільки типів гамет утворює гетерозигота...
3
15×(a-4)=42+8×(a-4) решите уравнение...
2
Посмотри обратный словарь на -ча, -ж, -ш, -щ. выбери по нескольку...
3
Вшкольном зале для концерта поставили слева 6рядов стульев,по 9...
3
Мүсінші мысық əңгімесіндегі шлқанның кім екенін білесін дер ме...
3
var a, b, i, k : integer;
mas : array[1..n] of integer;
Begin
read(a, b);
randomize();
k := 0;
for i := 1 to n do begin
mas[i] := random(50);
if (mas[i] >= a) and (mas[i] <= b) then
k := k + 1;
end;
writeln(k);
End.