Дан двумерный массив целых чисел. Вставить в него:
а) строку из нулей перед всеми строками, в которых количество положительных элементов равно количеству отрицательных;
б) столбец из чисел 10 перед всеми столбцами, в которых количество положительных элементов больше количества отрицательных.

var

 A: array[1..100, 1..100] of integer;

 i, j,n,m: integer;

begin

 Writeln('Введите N and M');

 Read(n,m);

 Randomize;

 Writeln('Исходная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do

   begin

     a[i, j] := Random(-100, 100);

     write(A[i, j]:5);

   end;

   writeln;

 end;

 Writeln('Измененная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do  

   begin

     if A[i, j] > 0 then a[i, j] := 1;

     if A[i, j] < 0 then a[i, j] := 0;

     Write(a[i, j]:5);

   end;

   Writeln;

 end;

end.

Задача 1:

var a,r: double;

begin

writeln('Введите сторону квадрата a');

readln(a);

writeln('Введите радиус круга r');

readln(r);

writeln('Площадь фигуры: ',a*a-Pi*r*r);

end.

Задача 2:

var a, b, c, D, x1, x2: real;

begin

writeln('Введите A, B, C');

readln(a,b,c);

D:=b*b-4*a*c;

if D>=0 then

 begin

  if (sqrt(D)=0) then

   begin

    x1:=-b/(2*a);

    write('Один корень ',x1:0:2);

   end

  else

   begin

    x1:=(-b-sqrt(D))/(2*a);

    x2:=(-b+sqrt(D))/(2*a);

    write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);

   end

 end

else write('Корней нет');

end.