Задание 1 Почему отношение неравенства можно назвать логическим выражением? Приведите пример блок-схемы алгоритма с логическим условием. Задание 2 Составьте словесный алгоритм и блок-схему для нахождения наименьшего из трех значений. Задание 3 Составьте словесный алгоритм и блок-схему для вычисления корней квадратного уравнения по данным значениям его коэффициентов.

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2