Дана вещественная матрица размерности n*m. вывести номера строк, содержащих больше положительных элементов чем отрицательных. решите на языке pacal

Program strok; uses crt; const m=3; n=4; var i,j,pos,neg: integer; a: array[1..n, 1..m] of real; begin      for i: =1 to n do          for j: =1 to m do read(a[i,j]); for i: = 1 to n do begin    neg: = 0;     pos: = 0;     for j: = 1 to m do begin      if a[i,j] < 0 then inc(neg)        else inc(pos);       end;       if pos > neg then write(inttostr(i),' ');     end;     readln; end.

Var a: array[1..1000]of integer; b: array[1..1000]of integer; i,n,summ: integer; begin writeln('введите кол-во цифр'); readln(n); writeln('введите цифры'); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if (a[i]> =10)and (a[i]< 100) then b[i]: =a[i]; end; for i: =1 to n do begin if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 4=0) then summ: =summ+a[i]; end; for i: =1 to n do begin if b[i]> 0 then write(b[i],' '); end; writeln; write('сумма 3-х значных чисел кратных 4=',summ); end.

1) переводишь целую часть по обычным правилам 2) дробную часть числа умножаешь на основание системы счисления (на 4 то бишь) 3) из получившегося числа: целая часть(цифра) - записать ее как очередной разряд (дробный) результирующего числа и отбросить 4) действия 2 и 3 повторять, пока дробная часть не станет =  0 или пока не будет достигнуто требуемое кол-во разрядов пример: десятичное число  35,625 в четверичную сс 1) переводим целую часть: 35 в десятичной = 203 в четверичной 2) 0,625*4=2,5   дописываем к числу 203,2    остается 0,5. продолжаем 3)  0,5*4=2   203,22 дробная часть равна нулю, значит все десятичное число 35,625 = четверичному числу 203,22