Решить задачу

[ДмитрийЧБ]

Может кто помочь написать программу в паскале.
Задание:Дан одномерный массив размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых >10.

[ura_111]

1) Есть функция random(35) - выводит случайные от 0-ля до 35. А если
random(35)-15, случайные от -15 до 20
2) Абсолютное значение находится abs(x).

var a:array [1..10] of integer;
      i:integer;
begin
  randomize;
  for i:=1 to 10 do
    begin
      a[i]:=random(35)-15;
      write (a[i],' ');
      if abs(a[i]) > 10 then write (a[i],' ');
    end;
  writeln;
   readln;
end.

[Аватар]

Есть функция random(35) - выводит случайные от 0-ля до 35

от 0 до 34 включительно