const
N = 9;
var
mas: array [0..N] of integer;
sum,i:integer;
begin
for i:=0 to N do begin
mas[i] := (i * 3 - 5);
end;
writeln('Массив: ');
for i:=0 to N do begin
write(mas[i] + ' ');
end;
writeln();
for i:=0 to N do begin
sum += mas[i]
end;
writeln('Сумма всех элементов массива = ' + sum);
end.
Объяснение:
Pascal.
