Решить ! створіть і виведіть масив з 20-ти випадкових цілих чисел з діапазону (0; 100),використовуючи функцію random(100).скільки вньому є чисел більших, ніх 20 і менших, ніж 60? ( зробити у pascal).
142
191
Ответы на вопрос:
Var a: array [0..20] of integer; i, c: integer; begin for i : = 0 to 20 do begin a[i] : = random(100); end; for i : = 0 to 20 do begin writeln(a[i]); end; for i : = 0 to 20 do begin if (a[i]> 20) and (a[i]< 60) then c : = c + 1; end; write('чисел, больших 20 и меньших 60: '); write(c); end.
Популярно: Информатика
-
hockeymen22813.11.2022 22:58
-
Uliano4ka109.05.2020 18:21
-
verenikinaulia19.04.2023 07:07
-
aygul08107116.03.2020 15:15
-
SonechkaKorean06.11.2020 03:17
-
likapak125.11.2021 09:54
-
Маргарин1125.02.2021 23:35
-
mamatatobaba1009.03.2023 13:29
-
saralis09.01.2021 06:55
-
Михаилович22318.11.2021 02:15