Ответы на вопрос:
1. вот так сейчас решают подобные : // pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin writeln(range(1,100).select(i-> sin(i)*cos((x-> x< > 0).average) end. тестовое решение: -0.00136006072493969 2. а вот так учат писать это же школьные учителя: // pascalabc.net 3.1, сборка 1174 от 22.02.2016 var m: array[1..100] of real; i,k: integer; s: real; begin s: =0; k: =0; for i: =1 to 100 do begin m[i]: =sin(i)*cos(i); if m[i]< > 0 then begin s: =s+m[i]; k: =k+1 end end; writeln(s/k) end. тестовое решение: -0.00136006072493969
Популярно: Информатика
-
neponyatkiii12.02.2023 00:06
-
vladchesak07.01.2020 18:39
-
Ннггген111313.11.2021 22:09
-
andreylishtaev05.05.2020 19:55
-
belozerovyurik13.12.2020 14:14
-
DANA307200531.01.2021 20:56
-
yra837200429.04.2021 18:16
-
antoxa22832224.05.2021 17:45
-
дэфолт12325.09.2020 08:03
-
MILKovka13.08.2020 15:46