Две задачи:1)На использование подпрограмм.2)На сортировку Опции

[B.L.A.C.K.]

1)Даны 2 произвольных массива F и G размера k и n соответственно найти в каждом массиве среднее арифметическое отрицательных элементов. Исходные данные взять самостоятельно.

2)Дан произвольный массив Т размена n упорядочить в порядке убывания отрицательные элементы массива Т. В исходном массиве должны быть также отрицательные элементы. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно

P.S. Если не трудно,помогите плиз с решением.

[Coach]

Ну вот первая к примеру

Program pr;
var f:array[1..2000] of integer;
	g:array[1..2000] of integer;
	s1,s2,j2,j1,i,n,k:integer;
	SredArif2,SredArif1:real;

Procedure VvodMassiva1(n:integer);
begin
writeln ('Vvedite elementi massiva F:');
For i:=1 to n do
  readln (f[i]);
end;

Procedure VvodMassiva2(k:integer);
begin
writeln ('Vvedite elementi massiva G:');
For i:=1 to k do
  readln (g[i]);
end;

Procedure SrArif1;
begin
For i:=1 to n do
  If f[i]<0 then
  begin
	 s1:=s1+f[i];
	 j1:=j1+1
  end;
If s1=0 then
   writeln ('Otric elementov v massive f net')
else
begin
   SredArif1:=s1/j1;
   writeln ('Srednee Arifmet otric elementov dli massiva F:',SredArif1)
end;
end;

Procedure SrArif2;
begin
For i:=1 to k do
  If g[i]<0 then
  begin
	 s2:=s2+g[i];
	 j2:=j2+1
  end;
If s2=0 then
   writeln ('Otric elementov v massive G net')
else
begin
   SredArif2:=s2/j2;
   writeln ('Srednee Arifmet otric elementov dli massiva G:',SredArif2);
end;
end;

begin
writeln ('Vvedite razmernost massiva F:');
readln (n);
writeln ('Vvedite razmernost massiva G:');
readln (k);

VvodMassiva1(n);
VvodMassiva2(k);
SrArif1;
SrArif2;

readln;
end.

Добавлено через 12 мин.
Ну по второй задаче вопрос после сортировки тебе нужно выводить только отсотиров. часть из отрицательн. элементов или весь массив так чтобы положительные элементы оставались на своем месте.