Program test; Var m, n : integer;

Begin

m:= 15 mod 6;

n:= 15 div 6;

End.

Определите значения переменных m и n

Выберите один или несколько ответов

1)Сколько бит информации несет сообщение о том,что занятия состоятся в одной из 36 аудиторий?диапазон 0-35 ,  2 в ст 6 > 35  ответ : 6 бит 2) Какое число следует за каждым из данных: (а) 667(внизу 8) (б) 101(внизу 2) Нечетное, вполне себе ответ.3) Выполните арифметические операции: (а)11010110(внизу 2) + 1111001(внизу 2) (б) 1110(внизу 2) * 1001(внизу 2) (в) 1100011(внизу 2) - 11111(внизу 2)   нужно делать столбиком как с обычными числами, только высший разряд увеличивать при переполнении текущего разряда большего чем 1.

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.