Ответы на вопрос:
Var a: array[1..10] of real; i: integer; begin for i: =1 to 10 do a[i]: =(2*i-1)/cos(i); for i: =1 to 10 do writeln(i,'-> ',a[i]); readln; end.
Популярно: Информатика
-
Собакамаилру18.10.2020 13:34
-
Timoxin09.07.2022 16:59
-
Лилиана431202.12.2022 04:08
-
bryaaa10.08.2022 03:59
-
сырнаядуша10.07.2021 20:44
-
Катенька23110.07.2021 22:27
-
никиточка46620.10.2021 10:31
-
агамтасия06.05.2021 22:20
-
davlud197431.07.2020 23:05
-
vadimmatus16.12.2022 06:24