Определите значение сигнала на выходе логической схемы.

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

ЗАДАЧА №1

var

       x, y: Real;

begin

       Read (x);

       if x > 10 then

               y := Pi - 2 * x

       else

               y := 1 - x;

       Write (y)

end.      

ЗАДАЧА №2

var

       a, b: Real;

begin

       Read (a, b);

       Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))

end.        

ЗАДАЧА №3

var

       a, c: Word;

begin

       Read (a);

       c := 0;

       if a div 100 < 5 then

               Inc (c);

       if (a div 10) mod 10 < 5 then

               Inc (c);

       if a mod 10 < 5 then

               Inc (c);

       if c > 0 then

               Write ('содержит цифры меньше 5')

       else

               Write ('не содержит цифры меньше 5')

end.