Сформулировать массив случайных чисел из 10 элементов,принадлежащих интервалу |-5..6|.Вывести на экран элементы меньше 0

спасибо тебе,огромное,выручил)

спасибо!!!!

uses crt;const n=10;var  a:array[1..n] of integer;  i,max,min: integer;begin clrscr;for i := 1 to n do begina[i]:=random(-5,6);write(a[i]:4);end;writeln;for i := 1 to n do beginif a[i]>0 then write(a[i]:4);end;writeln;end.

Вот скриншоты программы и результатов работы программы: