Решите уравнение 30(10)+24x=52(8) ИНФОРМАТИКА

часть схемы, информацию - канал.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт

файл с исходным текстом программы на паскале должен иметь расширение pas.

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.