Задача на однородный массив

[stalker212616]

Сформировать массив целых чисел в промежутке [-50;50] .В каждой отрицательной последовательности найти среднее арифмитическое.Среди них найти максимум. Помогите пожалуйста сделать программу.

[Leshii]

Кинь что сделал, и будем помогать.

[stalker212616]

Program s1;
uses crt;
const= 10;
type
var m:array [1..n] of integer
q:array [1..n] of integer
w:array [1..n] of integer
i,min,max,s,k:integer;
Procedure x;
begin
for i:=1 to n do
m[i]:=random (100)-50;
for i:=1 to n do
writeln (m[i]);
writeln ('Отсортированный Массив');
end;
Procedure Y;
begin
for i:=1 to n do begin
if m[i]<0 then
end;
end;
begin
x;
y;
for i:=1 to n do
writeln (q[i]);
end.

[stalker212616]

Помогите пожалуйста сделать программу