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

  • С помощью гениратора случайных чисел получить 12 чисел из диапозона от 0 до 8 и вывести на экран только числа больше 5, а также подсчитать кол-во выведенных чисел. Random

Ответы 1

  • FPC IDE 2.6.0.

    Только тут какой-то китайский рандом, и числа больше 8 только 6 выдает, но проверял алгоритм работает верно.

     

     var a:array[1..12] of integer; i,k:integer;begin k:=0;for i:=1 to 12 dobegina[i]:=random(8);if a[i]>5 then inc(k);end;writeln('Kol-vo chisel bolsih za 5: ',k);for i:=1 to 12 doif a[i]>5 then writeln(a[i]);readln;end.

     

     

     

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

Еще вопросы

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

Войти через Google

 или

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

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

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