Во сколько раз количество положительных элементов в первой половине массива больше кол-ва отрицательных во второй половине массива

[AndriyP]

Определить во сколько раз количество положительных элементов в первой половине массива больше количества отрицательных элементов во второй половине массива. Решите задачу.

[Вадим Мошев]

Что не получается? Показывайте наработки.

[newerow1989]

const n=10;
var i,p1,p2:integer;
    p:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   Writeln;
   p1:=0;
   For i:=1 to n div 2 do
      If p[i]>0 then
         p1:=p1+1;
   p2:=0;
   For i:=n div 2+1 to n do
      If p[i]<0 then
         p2:=p2+1;
   Writeln(p1,'/',p2,' = ',p1/p2:5:5);
   Readln;
end.

Сойдет?

[min@y™]

Сойдет?

За борьбу с конкурентами - награждаешься!!!