Одномерный массив. Сумма кубов

[Xeon332]

[I]Найти сумму кубов всех отрицательных элементов массива A={a[i]}.[/I(Задав одномерный массив целочисленных данных А в одном из заданных форматов (Byte, Word, Shortint, Integer или Longint), реализовать обработку массива, как указано в варианте. Длина массива N <= 20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста задачи.)

Я начал делать, у меня вышло:

uses crt;
const
n=20;
Var
a:array [1..n] of integer;
b : integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:= random(21)-10;
write(a[i]:4);
end;
if a[i]<0 then
???????????????????????

Дальше нужно возвести один отрицательный элемент массива в куб, и потом инкрементой оставшиеся и найти их сумму... Как это записать не могу...

[Stilet]

...
for i:=low(a) to high(a) do 
if a[i]<0 then begin
 summa:=summa+a[i]*a[i]*a[i]
end;
...

[Xeon332]

Сообщение от Stilet

...
for i:=low(a) to high(a) do 
if a[i]<0 then begin
 summa:=summa+a[i]*a[i]*a[i]
end;
...

спасибо! то есть получается в этой процедуре значения "а"
принимаются от низкого к высокому до нуля?
возник попутно вопрос: почему данные уже в готовом виде не выводятся на экран? когда проверяю работоспособность проделаннго - выводится только таблица случайных значений...

[puporev]

Чтобы обработанный массив вывести на экран, это тоже надо написать почти также, как ты писал для исходного массива
for i:=1 to n do
write(a[i]:4);
readln
end.

[Stilet]

значения "а"
принимаются от низкого к высокому до нуля?

Ну я просто не увидел границы массива, потому так и написал.
если хош то : for i:=1 to n do

[Xeon332]

вроде всё правильно, но в результате случайным образом массив состоит всегда из нолей....

uses crt;
const
n=20;
Var
  a:array [1..n] of integer;
  i, summa: integer;
Begin
  Clrscr;
    Randomize;
for i:=1 to n do
write(a[i]:4);
if a[i]<0 then
 begin
   summa:=summa+a[i]*a[i]*a[i];
   inc(a[i]);
   writeln;
   readln;
 end;
readkey;
end.

[Карась]

Какой хитрый... неплохобы массив заполнить....

Randomize;

For i := 1 To n Do
Begin
a[i] := Random(10); //указываешь рандомное число
Write (a[i]:4,' ');
End;

if a[i] < 0 then
begin ...........

[Xeon332]

спасиб)) проглядел..