Синформатикой. решение нужно написать на языке программирования turbo pascal. ( решить в паскале) с клавиатуры вводится n чисел. найти максимальные.

сам пременные объявишь

begin

  read(max);

  read(min);

  while(n < > 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел

  if max < min then min : = max;

  writeln(max);

end.

А)  100010,011101(2)  = 22,74(16) 0010  0010,  0111 0100     2            2                7          4 б)  1111000000,101(2)  =  3c0,a  (16) 0011  1100 0000,  1010     3            c            0              a в)  1100011,11(2)  =  63,c (16) 0110  0011,  1100     6              3            c г)  100011,111(2)  =  23,e (16) 0010  0011  1110     2              3          e

Program sum_nechet; var a: array [0..100] of integer; var b,i,c,k: integer; begin       randomize;       for i: =1 to 10 do       begin               a[i]: =random(10);               writeln(a[i]); // это можно не писать, просто чтобы видеть числа в массиве, если интересно.       end;       c : = 0;       b : = 0;       for i: =1 to 10 do       begin               if a[i] mod 2 = 0 then               b : = b + a[i]               else               c : = c+ a[i];       end;       writeln('нечетных ' , c);       writeln('четных ' , b);       k: =0;       for i: =1 to 10 do       begin               if a[i] = 0 then               k: = k+1       end;       writeln('нулей ' , k) end.