Помогите решить задачу на Turbo Pascal

[tree]

Определить среднеарифметические значения отдельно для положительных и отрицательных элементов вектора [Ai]50

[kommunist]

Что не получается?

[tree]

Если честно я вообще не програамер, поэтому и спрашиваю в универе задали, а решать не знаю ка

[kommunist]

Сообщение от tree

Если честно я вообще не програамер, поэтому и спрашиваю в универе задали, а решать не знаю ка

Тогда лови

program z;
uses crt;
const n = 10;
type vector = array [1..n] of integer;
var
     a: vector;
     i:integer;
     s1:real;
     s2:real;
     kol1:integer;
     kol2:integer;
begin
     writeln('ishodniy vector');
     writeln('_______________');
     randomize;
     clrscr;
     for i:= 1 to n do
begin
     a[i] := random(10) - 5;
     write(a[i]:2,' ' );
end;
     writeln;
     writeln;
     s1:=0;
     s2:=0;
     for i:= 1 to n do
begin
     if a[i] < 0
     then
     inc(kol1)
     else
     inc(kol2);
end;

     for i:= 1 to n do
begin
     if a[i] < 0
     then
     s1:=((s1+a[i])/kol1)
     else
     s2:=((s2+a[i])/kol2);
end;
     writeln;
     write(s1:2,' ',s2:2);
     readln;
end.

[tree]

Спасибки большое!

[Alex21]

kommunist, с каких пор Ноль считается положительным числом?
А в один цикл слабо?

const
N=50;

var
  A:array[1..N]of integer; //массив
  plus,minus:byte; // кол-во "+" и "-"
  sumP,sumM:integer; // сумма "+" и "-"
  srP,srM:real; // среднее арифметическое "+" и "-"
  i:integer;
begin
  Randomize;
//начальные предустановки
  plus:=0; minus:=0;
  sump:=0; sumM:=0;
  srP:=0; srM:=0;
  for i:=1 to N do
  begin
    A[i]:=Random(10)-Random(10); // заполняем массив случайными числами  -9..+9
    Writeln(A[i]:2); // и выводим на экран

    if A[i]>0 then // если число положительное, то...
    begin
      inc(plus); // увеличиваем кол-во поожительных на 1
      sumP:=sumP+A[i]; // увеличиваем общую сумму положительных
    end;
    if A[i]<0 then // если число отрицательное, то аналогично 
    begin //но для отрицательных переменных
      inc(minus);
      sumM:=sumM+A[i];
    end;
  end;
  srP:=sumP/plus; // ср. арифметическое положительных
  srM:=sumM/minus; // ср.арифм. отрицательных
  writeln;
  writeln('srPlus  =  ',srP:4:2); // вывод ср.ариф. положит
  writeln('srMinus = ',srM:4:2);// вывод ср.ариф. отрицат

  readln;
end.

[Гурман]

Не знаю как решить я в этом ноль помогите с паскалем.
1)Ввести три числа, найти наименьшее отношение этих чисел.
2) Функция sign(x) задана аналитически cледующим образом(система уравнений)
1, если х>0;
sign(x)= { 0, если х=0;
-1, если х<0;
Введите значение х, выведите значение функции sign(x).
3)Даны координаты точки М(х,у). Определить, принадлежит ли данная точка замкнутому множеству D, заданному системой ограничений:

х + у <= 1, (система уравнений)
2х - у <= 1,
у >= 0

4)Даны координаты точки М(х,у). Определить, принадлежит ли данная точка замкнутому множеству D
Центр круга лежит в точке (1,1) значит радиус 1 ,нужно узнать попадает ли введеная точка в круг...
5)Найти наибольшее значение из трех f(1), f(2) и f(3), где f(x) = sin(5x).

помогите задали очень нужна ваша помощь