Ответы на вопрос:
Const n = 10; var b: array [1..n] of real; i: byte; begin for i : = 1 to n do begin b[i] : = cos(i); writeln('b[',i,'] = ', b[i]); end; end.
Популярно: Информатика
-
Makc85721.03.2022 17:22
-
yohoho36521.02.2023 13:34
-
ksenya2004208.12.2022 03:36
-
МарияМяуМяу29.01.2020 21:37
-
karabanovaann13.01.2021 05:06
-
ressoli44210.06.2021 20:39
-
xtreil181пингвинчик06.02.2022 14:54
-
katcornewa04.03.2023 17:12
-
vddrobysheva23.09.2022 18:06
-
Karina12133427.03.2021 07:36