Сформировать новый массив,содержащий отрицательные элементы - Задача по PASCAl.

[Waia]

Дан массив f1,.. ,f14. Сформировать новый массив,содержащий
отрицательные элементы fi.найти сумму элементов нового массива. Найти f min.

Даны массивы
N1,...,N10-наименование предприятий.
R1,...,R10-годовой расход электроэнергии,киловат;
S1,...,S10-объем производимой продукции,руб. Вывести списки
предприятий, у которых отношение Ri/Si больше,среднего по всей группе
предприятий.

[VoRTeX]

1.

var
	f, a:array[1..14] of integer;
	i, ind, n:byte;
	sum:word;
begin
	ind:=0; sum:=0;
	Randomize;
	for i:=1 to 14 do
	f[i]:=Random(30000);
	n:=Random(14);
	for i:=1 to n do
	f[i]:=-f[i];
	for i:=1 to 14 do
	if f[i]<0 then
	begin
		inc(ind);
		a[ind]:=f[i];
	end;
	for i:=1 to n do
	sum:=sum + a[i];
	Writeln(sum); sum:=1;
	for i:=1 to n do
	if a[sum]>a[i] then sum:=i;
	Writeln(sum);
end.

[[koyot]]

2я задачка

program Project2;
var
   n:array [1..10] of string;
   r,s: array[1..10] of real;
   i:integer;
   o:real;

begin
o:=0;
  for i:=1 to 10 do      //считываем данные каждое предприятие c данными в строчку
   readln (n[i]);
   readln (r[i],s[i]);
  for i:=1 to 10 do   //находим среднее
    o:=o+(r[i]/s[i]);
    o:=o/10;
    for i:=1 to 10 do        //проверяем
     if (r[i]/s[i])>o then
      writeln (n[i]);
     readln;
end.

тестить некогда но вроде праильно