Нахождение

program Project1;
var
  x: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  mult: integer; // Переменная для хранения значения произведения..
  flag: boolean; // Логическая переменная для вывода корректного ответа.
begin
  write('Введите количество элементов массива: ');
  Readln(n);
  for i:= 1 to n do     // Ввод значений элементов вручную.
   begin
     write('Введите значение элемента ',i,': ');
     Readln(x[i]);
   end;
  writeln('Исходный массив:');
  for i:= 1 to n do      // Вывод массива в консоль.
    begin
      write(x[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  flag:= false;
  writeln('Положительные элементы:');
  for i:= 1 to n do      // Вывод положительных элементов массива в консоль.
    begin
      if x[i] > 0 then
        begin
          flag:= true;
          write(x[i]:4);
          if i mod 10 = 0 then
            writeln;
        end;
    end;
  if not flag then
    writeln('Элементы с положительным значением в массиве не найдены.');
  mult:= 1;
  flag:= false;
  for i:= 1 to n do
    if x[i] < 0 then // Условие для поиска отрицательных элементов.
      begin
        flag:= true;
        mult:= mult * x[i];  // Подсчет произведения отрицательных элементов.
      end;
  if flag then
    writeln('Произведение элементов с отрицательным значением: ', mult)
  else
    writeln('Элементы с отрицательным значением в массиве не найдены.');
 
Readln;
end.