Ответы на вопрос:
Var n,i,k: integer; a: array [1..10] of integer; begin for i: =1 to 10 do begin read (a[i]); if a[i]=1 then n: =n+1; end; writeln ('edinice=',n,' elements'); end.
Популярно: Информатика
-
Ilona00428.02.2023 19:10
-
Salvatation123009.10.2021 15:00
-
TheFlyHelp24.01.2020 21:53
-
kudgalina8325.09.2020 01:33
-
Елена2912198321.02.2020 04:20
-
Осьминог1311.09.2022 09:33
-
rekiol54422.06.2021 06:52
-
kkmla12307.12.2022 10:59
-
gopas1112317.03.2021 07:51
-
natalyacomandi17.04.2023 07:43