Ответы на вопрос:
Const k=20; var a: array [1..k] of integer; i,n: integer; begin read(n); for i: =1 to k do begin a[i]: =random(k); write(a[i]: 4); - не обязательно, чисто, чтобы видеть какие числа сгенерировал рандом end; for i: =1 to k do if (a[i] mod 2< > 0) and (a[i]< n) then begin writeln(); writeln(); write(a[i]: 4); end; end.
Популярно: Информатика
-
явлущуьеиетье812.12.2020 21:12
-
Арсений445517.06.2020 13:02
-
котан617.01.2021 13:29
-
nikitagregorovi06.06.2022 09:54
-
Aldiyar070820.05.2021 03:40
-
Никитар45613.01.2021 02:36
-
настёнканяш15.11.2021 01:14
-
Nurbibi1225.03.2023 17:24
-
3344227p06s5705.10.2022 00:55
-
Ritochkа02.04.2023 04:54