Построить таблицу истинности для высказывания НЕ (А И В) ИЛИ НЕС 2) Для логического выражения нарисуйте соответствующую ему электронную схему. Выясните, какой сигнал должен быть на выходе электронной схемы при каждом возможном наборе сигналов на выходах. Составить таблицу работы схемы. (неX или Z) И (неZ или X)

Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.