составить программу.Сформировать одномерный массив n=10 a[I]=i^3 1 8 27... найти сумму 1-го,5-го и последнего элемента.

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.2016begin  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 1000s=11262. Школьный вариант// PascalABC.NET 3.1, сборка 1230 от 27.04.2016var  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.