Нужна помошь (паскаль)

[gred]

Найти отношение суммы положительных элементов заданного вектора по модулю суммы отрицательных элементов и отношение их количества.Если отрицательных элементов нет, то сообщение об ошибке.

[Карась]

"...кароче если предыдущая фраза вас не смутила, заходите."

Ну и завернул, еле понял что на что делить надо.

Контрвопросы:
1. Покажи пример "заданного вектора"....

[gred]

Это ток прочитал правила что так темы ненадо называть
Прошу не удаляйте эту тему мож мне ктонить поможет

Вот и что меня смушает как задать вектор
Завернул не я а мой препод, дословно написал

Попробую расшифровать
Найти отношение положительных элементов(задоного вектора )/отрицательных элементов(задоного вектора )
и кол пол эл/кол. отрц. эл.
Если Отрицательных нет то выдать ошибку

[Карась]

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

Попробую расшифровать
Найти отношение положительных элементов/отрицательных элементов
и кол пол эл/кол. отрц. эл.
Если Отрицательных нет то выдать ошибку

Это понятно. Как выглядит заданый вектор?

[gred]

в виде 2 массивов

И их надо задовать в начале проги
n[x]
k[y]

[Карась]

Точно два массива?
Смутно представляю работу с двумя массивами....
В условии намёк на один.... наверное..

[gred]

Нет, это я так думаю

[gred]

Ну мне тут кто поможет

[puporev]

Так напиши же нормально, по-русски, без ошибок задание. Так как оно звучит в первоисточнике, а не так как "ты думаешь". Если не напишешь, никто не поможет, потому что это невозможно!

[Serge_Bliznykov]

Извините, что вмешиваюсь в ваше обсуждение. Безусловно, правильное задание - это ОСНОВА.
но, имхо, здесь просто напросто речь идёт об одном массиве (векторе) в нём нужно найти
отношение суммы всех положительных элементов К сумме всех отрицательных, причём от этого оношения взять модуль. Второе - отношение количества положительных к количеству отрицательных:

const
  N = 10;
var
  M : array[1..N] of integer;
  i, KolPozitive, KolNegative, SumPozitive, SumNegative : integer;
begin 
  {ввод данных}
  WriteLn('Введите ',N:1,' элементов вектора');
  for i:=1 to N do
   ReadLn(M[i]);
  KolPozitive := 0;
  KolNegative := 0;
  SumPozitive := 0;
  SumNegative := 0;
  for i:=1 to N do
   if M[i]<0 then begin
     Inc(KolNegative);
     SumNegative := SumNegative + M[i];
   end
   else begin
     Inc(KolPozitive);
     SumPozitive := SumPozitive + M[i];
   end;

  if KolNegative = 0 Then 
    WriteLn('Ошибка! Отрицательных НЕТ!')
  else begin
    WriteLn('Отношение суммы положительных к отрицательным = ',Abs(SumPozitive/SumNegative):12:2);
    WriteLn('Отношение количества положительных к количеству отрицательных = ',KolPozitive/KolNegative:12:2);

  end;
end.

писал прямо в броузере, за АшиПки просьба ногами не пинать ;-)