Ответы на вопрос:
Program n; var m: array[1..12] of integer; i,k: integer; begin randomize; k: =0; for i: =1 to 12 do begin m[i]: =random(41)+150; write(m[i],' '); if m[i]> 180 then k: =k+1; end; writeln; if k> 0 then writeln('такой ученик есть) else writeln('такого ученика нет'); end.program n; var m: array[1..12] of integer; i,k: integer; beginrandomize; k: =0; for i: =1 to 12 do begin m[i]: =random(41)+150; write(m[i],' '); if m[i]< 160 then k: =k+1; end; writeln; if k> 0 then writeln(k,' ученик(ов/а) имеют рост меньше 160') else writeln('учеников, рост которых меньше 160, нет'); end.
Популярно: Информатика
-
Cirkulek99908.06.2022 00:24
-
Катя44441115.02.2020 12:24
-
iliacska02.06.2021 18:31
-
YLANKATV09.05.2021 07:32
-
КитиКэт1330.08.2022 07:02
-
vikasivak02p08wjc18.12.2022 16:59
-
алпплла12.03.2022 03:36
-
Ааапллортдопсмтдд20.06.2023 13:53
-
Белочка010704.10.2022 15:34
-
алина20042318.05.2020 01:45