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