Составить программу.сформировать одномерный массив n=10 a[i]=i^3 1 8 найти сумму 1-го,5-го и последнего элемента.
278
464
Ответы на вопрос:
Const n = 10; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do a[i] : = i * i * i; writeln(a[1] + a[5] + a[n]); end.
1. короткий вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =1.to(10).select(x-> x*x*x).toarray; a.println; writeln('s=',a[0]+a[4]+a[9]) end. результат 1 8 27 64 125 216 343 512 729 1000 s=1126 2. школьный вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 var i: integer; a: array[1..10] of integer; begin for i: =1 to 10 do begin a[i]: =i*i*i; write(a[i],' ') end; writeln; writeln('s=',a[1]+a[5]+a[10]) end.
Популярно: Информатика
-
Rube13454hill29.01.2022 14:59
-
vadimamaniya01.09.2021 08:36
-
stylestudionmovp55705.09.2020 08:52
-
Ариса2703.08.2022 06:04
-
ритттт22.02.2023 20:53
-
Ayei17.05.2020 00:42
-
лис888913.03.2021 19:01
-
krasilovaen12.07.2022 21:38
-
Zekkin20.01.2023 13:45
-
Вета200816.08.2022 11:40