Ответы на вопрос:
кидай жалобы на старый аккаунт или через техподдержку, могут попросить сфоткаться с паспортом
Program sr; var a,m,c: integer; massiv: array [1..10] of integer; begin; a: =0; writeln ('введи искомый рост'); read (m); randomize; for c: =1 to 10 do begin; massiv[c]: =random(100,200); end; begin; for c: =1 to 10 do if massiv[c]> m then a: =a+1; end; writeln (a,'учеников выше',m,'см'); end.
Популярно: Информатика
-
MrLech10.08.2022 03:35
-
dashaklimova0102.08.2021 18:22
-
070974zZ04.08.2020 02:21
-
Nastenok12228.04.2020 21:04
-
daleroks29.10.2020 06:49
-
АвторУлыбки19.05.2021 11:49
-
FalleNGoD708.11.2022 15:56
-
BuMo114.11.2020 17:31
-
sharperdimas21.06.2022 17:17
-
see99aa12.08.2021 08:29