С помощью гениратора случайных чисел получить 12 чисел из диапозона…

Question

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

Answer 1

67

evgen11111111

23 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: