помогите пожалуйста найти ошибку

[elena68r]

Определить сумму отрицательных элементов массива X кратных трем, X(50), -50<xi<50

program sum;
var  sum_otr,i, n: integer;
x:array [1..30] of real;
begin
writeln(' vvedite znachenie n');
read (n);
randomize;
sum_otr:=0;
for i:=1 to n do
if(x<0) and (x mod 3) = 0
then sum_otr:= sum_otr +x;
end;
write ('сумма отрицательных элементов=' , sum_otr:0:3);
end.

пишут что тип операндов не соотв. операщии

[lu]

я конечно паскаль не изучала)) но мне кажется что у вас нет заполнения массива.
ввели n
включили генератор случайных чисел.
и сразу блок вычислений

[elena68r]

а как это сделать))) просто я его плохо знаю

[Данила]

for i:= 1 to n do begin
x[ i ] :=1+ random (100);
end;

заполняем массив случайными числами от 1 до 100

[InfStudent]

Ребят по массивам читаем FAQ!!