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

Ответы 5

  • Забыл указать, что нужно на языке pascal
    • Автор:

      duncan52
    • 5 лет назад
    • 0
  • ничего не понимаю здесь(
  • А, ну следующий раз вспомнишь.
    • Автор:

      mueller
    • 5 лет назад
    • 0
  • Главное, на Пасрале с английской лексикой понимаешь, а когда тебе русским по белому пишут - не понимаешь.
    • Автор:

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

      dangelo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years