Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Соня13377
07.03.2023 21:58 •
Информатика
Массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат
Показать ответ
Ответ:
котеенок1233
06.07.2020 21:26
Const n = 10;
var
a :array [1..n] of integer;
i, j, k, kol, p :integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n-1 do
for j:= 1 to n-i do
if a[j] > a[j+1] then
begin
k:= a[j];
a[j]:= a[j+1];
a[j+1]:= k;
end;
kol:= 0; p:= 1;
for i:= 1 to n do
if (a[i] > 20) and (a[i] < 50) then
begin
inc(kol);
p:= p * a[i];
end;
writeln(kol,' ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
букет223
10.04.2020 13:31
С РЕШЕНИЕМ ЕСЛИ МОЖНО(МОЖНО И БЕЗ РЕШЕНИЯ,НО...
vpuzerov
26.02.2021 23:22
1. Слайдтардың түрлі әсермен ауысуы қай мәзірде орналасқан? 2. Нысандарға анимацияны қалай қоямыз? 3. Слайдқа ауысу әсері қойылғанын қалай білуге болады информатика...
radacherepkova
28.06.2021 23:29
Напишите программу, не могу решить уже какой 27 ! вот : количество каждой буквыпо данному слову, состоящему из строчных латинских букв, посчитайте количество каждой...
Resh4tor1337
25.07.2021 04:08
Написать код на любом языке.условие : в школе чемпионат с футбола.у финальном туре чемпионата играли три команды а,в,с.было проведено три матча: в первом играли команды...
солнвшко
24.07.2020 22:40
ответить на . из симметричных букв о,к,с,н,о составь и запиши слова у которых есть ось симметрии. окно и оно- верно? больше ничего на ум не приходит....
galiamikhajlova
22.06.2021 13:22
Записать в массив все числа в диапазоне от а до в кратные 5язык питон...
QQQZZZQQQ
12.02.2020 07:54
1.укажите лишнее: а) вставка б)изменение начертания в)изменение цвета г)выравнивание 2.текст набранный в текстовом редакторе, храниться на внешнем носителе в виде:...
sveta4841
28.09.2020 16:28
Составить 6 предложений со словами жара,холод,друг,враг,начать,закончить....
Tonix502
28.09.2020 16:28
На 3-х полках 60 книг. на первой и второй полках 37книг, а на второй и третьей-42 книги. сколько книг на второй полке?...
CTRAHNK
28.09.2020 16:28
Какой тип сложного предложения? вроде ссп баобаб невысок, а вот рассказы о его толщине вызывают недоверие....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a :array [1..n] of integer;
i, j, k, kol, p :integer;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n-1 do
for j:= 1 to n-i do
if a[j] > a[j+1] then
begin
k:= a[j];
a[j]:= a[j+1];
a[j+1]:= k;
end;
kol:= 0; p:= 1;
for i:= 1 to n do
if (a[i] > 20) and (a[i] < 50) then
begin
inc(kol);
p:= p * a[i];
end;
writeln(kol,' ',p);
end.