Помогите написать программу в Паскале по задаче:

Question

Создайте массив А [1..8] с помощью генератора случайных чисел с элементами от -10 до 10 и выведите его на экран. Подсчитайте кол-во отрицательных элеменотов массива.

khmyr_s_bubnom · Accepted Answer

ой блеть заебался уже писать вам но помагу. 
program ex; 
uses crt; 
var 
mas:array [1..8] of integer; 
i,a:integer; 
begin 
randomize;(скопку уберешь это коментарий, функция чтобы рандом всегда раздный был) 
for i:=1 to 8 do 
begin 
mas:=random(10)+(-10); 
end; 
for i:=1 to 8 do 
begin 
write(mas,' '); 
end; 
a:=0; 
for i:=1 to 8 do 
begin 
if mas<0 then 
a:=a+1; 
end; 
writeln(a); 
end.

ex_grf · Answer

Стучи в агент.