Задать вопрос Регистрация
Помочь другим

  • Заполнить массив 10 случайными числами от 1 до 10. Проверить сколько чисел будет больше числа А (задается с клавиатуры.)

Ответы 1

  • var i,k,j :integer; a :array [1..10] of integer;Begin randomize; for i:= 1 to 10 do A[i]:=random(11); for i:= 1 to 10 do write(A[i], ' '); {Вывод массива на экран (можно убрать, т.к в задаче это не требуется)} write('Введите число А: '); read(k); for i:= 1 to 10 do if A[i] > k then inc(j); {увеличивает j на 1} writeln(j,' чисел большьше числа ', k);End.

    • Автор:

      atkins
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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