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

Program p_2; var a : 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.

Var   a : array [1..1000] of integer;   i, n, z, p, m  : integer; begin   i : = 0;   while not eoln do   begin     read (z);     inc (i);     a[i] : = z;     end;   m: = i; n: =0; z: =0; p: = 0;     for i : = 1 to m do      if i mod 2 = 0 then     begin       if a[i] < = then inc (n)        else if a[i] > 0 then inc (p)       else inc (z);     end;   writeln (n, ' ', z, ' ', p); end.

// 1. var a,b,c: real; begin writeln('введите два катета  a,b: '); readln(a,b); writeln('введите гипотенузу  c: '); readln(c);   if sqr(c) = sqr(a) + sqr(b) then writeln('треугольник прямоугольный.')   else writeln('треугольник не прямоугольный.'); end.// 2.vara: array [1..100] of integer; x,i,n: integer; beginwriteln('введите кол-во чисел  n: '); readln(n); writeln('введите числа: '); for i: = 1 to n do  readln(a[i]); writeln('вы ввели: '); for i: = 1 to n do  write(a[i]: 4); writeln; for i: = 1 to n do  if a[i] > -1 then x: =x+1; writeln('среди них положительных: ',x); end.