Нужно написать программу, которая сначала выводит до 30 рандомных чисел от 20 до 85,...

Question

41 просмотров

Нужно написать программу, которая сначала выводит до 30 рандомных чисел от 20 до 85, затем спрашивает число(оно должно вписываться с клавиатуры). После этого нужно вывести на экран числа, которые больше введённого числа.Если таких нет, тогда выводится на экран "нет"

Информатика Artembogdashko_zn (21 баллов) 26 Май, 18 | 41 просмотров

Дан 1 ответ

аноним · Answer 1 · 2018-05-26T14:25:01+0000

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
массив: РЯД 30 ИЗ ЦЕЛ;
сч, число: ЦЕЛ;
найдено: КЛЮЧ;

УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
КОН;
Вывод.Цепь("^");
число := Приём.Число();
Вывод.Цепь("^");
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] > число ТО
Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН

КОН Задание.