Задача на массив.

[spankyham]

Дан массив чисел X=(x1,x2,...,xn). Найти сумму квадратов отрицательных элементов массива.

[Serp]

uses crt;
var
a: array[1..1000] of integer;
i,otr,sum,n : integer;
begin
clrscr;

writeln('Введите N');
readln(n);

randomize;
for i:=1 to n do
a[i]:=random[10]-5;

for i:=1 to n do
begin
if a[i]<0 then
begin
otr:=sqr(a[i]);
sum:=sum+otr;
end;
end;

for i:=1 to n do
write('a[',i,']=',a[i],' ');

writeln('сумма квадратов всех отрицательных элементов = ',sum);
readkey;
end;

[Levsha100]

Сумму лучше сделать типа Longint

[spankyham]

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

uses crt;
var
a: array[1..1000] of integer;
i,otr,sum,n : integer;
begin
clrscr;

writeln('Введите N');
readln(n);

randomize;
for i:=1 to n do
a[i]:=random[10]-5; - Invalid qualifier.

for i:=1 to n do
begin
if a[i]<0 then
begin
otr:=sqr(a[i]);
sum:=sum+otr;
end;
end;

for i:=1 to n do
write('a[',i,']=',a[i],' '); - и чё вот это такое?)

writeln('сумма квадратов всех отрицательных элементов = ',sum);
readkey;
end;

ошибка......:/

[Serp]

write('a[',i,']=',a[i],' '); - и чё вот это такое?)

это чтобы массив красиво вывелся..

a[i]:=random[10]-5;

сорри вот так надо
a[i]:=random(10)-5;

и у последнего end ТОЧКУ

[spankyham]

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

это чтобы массив красиво вывелся....

спс конечно, но мну и так пойдёт writeln(a[i]:4);
а про скобочку и точку догнал уж =))

благодарю за помощь!!!!!

[Serp]

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

uses crt;
var
a: array[1..1000] of integer;
i,otr,n : integer;
sum: longint;
begin
clrscr;

repeat
writeln('Введите N>1');
readln(n);
until N>1;

randomize;
for i:=1 to n do
a[i]:=random(10)-5;

for i:=1 to n do
begin
if a[i]<0 then
begin
otr:=sqr(a[i]);
sum:=sum+otr;
end;
end;

for i:=1 to n do
write('a[',i,']=',a[i],' ');

writeln;
writeln('сумма квадратов всех отрицательных элементов = ',sum);
readkey;
end.

Вот полностью готовое...