Ответы на вопрос:
Uses crt; const n=10; var j: array [1..n] of real; sum: real; b: integer; begin sum: =0; for b: =1 to n do j[b]: =sin(b)/cos(b); for b: =1 to n do writeln(j[b]: 5: 3); for b: =2 to n-1 do if (j[b]> j[b+1]) and (j[b]> j[b-1]) then sum: =sum+j[b]; if j[1]> j[2] then sum: =sum+j[1]; if j[n]> j[n-1] then sum: =sum+j[n]; writeln; write('sum=',sum: 5: 3); end.
Популярно: Информатика
-
jotik991p010co20.11.2022 11:37
-
weloyda02.03.2022 16:37
-
алина386019.01.2020 06:01
-
Degradant8128.08.2021 04:11
-
Жикабай10.08.2021 02:03
-
Аминка23316.05.2021 09:30
-
kirillkleptzov24.04.2022 02:48
-
vika22030515.11.2021 05:06
-
Мурик12303.07.2021 02:19
-
romanchuknina20.08.2022 05:28