Запишите числа в прямом коде (формат 1 байт) 31 -63 65 - 128

слева сколько воды находится в кувшинах

8 - 0 : 1. наливаем в кувшин 8 л

5 - 3 : 2. переливаем из 8 л кувшина в 3 литровый, и выливаем в реку

2 - 3 : 3. переливаем из 8 л кувшина  3 литровый и выливаем в реку

0 - 2 : 4. переливаем оставшиеся 2 л из 8 литрового в 3 литровый кувшин

8 - 2 : 5. наливаем воду в 8 л кувшин

7 - 3 : 6. наливаем воду из 8 л кувшина в 3 л пока он не заполниться, т.е. наливаем туда 1 л, в 8 л кувшине остается 7 литров.

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.