Вмассиве чисел a[1 .. n] найти первое число, которое больше заданного числа р.

1. -57.66 (10) =  -111001.10101000111 (2); - = 1; 111001.10101000111 =  1.1100110101000111 * 10^5; 5 = 101; 5 бит = (5-1) = 1111 разрядов; 101+1111 =  10100 смещённый порядок. 1100110101000111 мантисса 1 10100 1100110101000111  0000000000 2. 0 10000001000 10010111100101 0000000000 11 бит = (11-1) = 1111111111 разрядов. 10000001000 -  1111111111 =  1001 (2) порядок 1001 (2) = 9 (10) 1.10010111100101 * 10^9 = 1100101111.00101 (2) 1100101111.00101 (2) =  815.15 (10) 815.15 (10)

Вразделе var нужно описать переменную max. program runa; const   n=5;   m=5; var        a: array[1..n,1..m] of real;   i,j: integer;   max: real; begin   writeln('матрица a(5x5)');   {считываем матрицу с экрана}   for i: =1 to n do       for j: =1 to m do       begin           write ('a[ ',i,',',j,' ] = ');           readln (a[i,j]);       end;   {присваиваем минимальное значение максимуму}        max: =0;         for i: =1 to n do       for j: =1 to m do         {если в матрице число больше максимума - присваиваем максимуму значение из матрицы}         if (a[i,j]> max) then max: =a[i,j];           {если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}        if max> 0 writeln ('max= ',max) else       writeln('положительных элементов нет'); end.