МНЕ С ИНФОРМАТИКОЙ!!

Вычислить сумму элементов массива, значения которых больше X.

var a:array[1..10] of integer;

   x, i, s:integer;

begin

 s:=0;

 for i:=1 to 10 do a[i]:=random(100);

 readln(x);

 for i:= 1 to 10 do

   if a[i] > x then s:= s + a[i];

 write(s);

end.

Объяснение:

Как я понял размер массива условен.