24. в массиве x(1: 10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). посчитать количество пятерок.
228
347
Ответы на вопрос:
Var x: array[1..10] of real; i,n: integer; begin for i: =1 to 10 do begin writeln('введите лемент №',i); readln(x[i]); if x[i]=5 then inc(n); end; writeln('всего пятерок ',n); end.
Популярно: Информатика
-
piece0fcake28.01.2021 13:07
-
издательство122.09.2020 01:44
-
Denchik133766613.10.2020 11:40
-
ваниль200322.10.2022 14:52
-
baxrom220.08.2022 03:07
-
dkuchanov135224.02.2022 12:50
-
hgjgz8s8tztcv18.06.2021 10:03
-
Tvoyainta24.07.2022 03:04
-
янина151129.01.2023 00:16
-
Aleksey8b14.05.2021 12:45