Дан двумерный массив,заполненный случайными числами от -10 до 10. Определить есть ли в данном массиве строка,в которой равное количество положительных и отрицательных элементов.Если есть вывести 
Пожалуйста,срочно,до восьми часов ндо сдать 

program p_2;vara : array[1..10,1..10] of integer; // двумерный массив.i, j, p, o : integer;begin//  Тут считаем,что массив уже полученfor i := 1 to 10 do  begin    p := 0;    o := 0;    for j := 1 to 10 do      if (a[i,j] > 0)         then p := p + 1        else o := o + 1;    if(o = p) then      for j := 1 to 10 do        write(a[i,j], ' ');  end;end.