Ответы на вопрос:
Лови) var f: array [1..15] of real; i, res: integer; begin writeln('enter f: '); for i : = 1 to 15 do begin write('f[', i, '] = '); readln(f[i]); end; res : = 0; for i : = 1 to 15 do if (f[i] > 3) and (f[i] < 10.5) then res : = res + 1; writeln(res); end.
Популярно: Информатика
-
дима564619.09.2020 16:10
-
Daavv3316.11.2021 17:29
-
Ровног04.07.2021 12:17
-
andreevanton017.02.2021 18:58
-
1к2о3т4я515.04.2022 16:25
-
кракодиллох128.07.2021 09:17
-
vika347519.09.2022 22:27
-
aiym1923.09.2022 23:38
-
larsab02.09.2022 20:23
-
6876566788777813.06.2023 16:04