Question

Помогите, пожалуйста. Задача в паскале абс, на одномерные массивы. Если хотя бы один элемент одномерного массива отрицательный, то вывести сообщение «ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ», иначе «ВСЕ ПОЛОЖИТЕЛЬНЫЕ».

Answer 1

var a: array of integer;

n: integer;

begin

   write('Введите размер массива: ');

   readln(n);

   SetLength(a, n);

   for var i:=0 to n-1 do

   begin

       a[i] := random(-2, 30);

       write(a[i], ' ');

   end;

   writeln();

   var answer := 'ВСЕ ПОЛОЖИТЕЛЬНЫЕ';

   for var i:=0 to n-1 do

   begin

       if a[i] < 0 then

       begin

           answer := 'ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ';

           break;

       end;

   end;

   writeln(answer);

end.

Answer 2

Конечно, я могу помочь вам с этой задачей на Pascal. Вот пример кода, который решает вашу задачу:

pascalCopy code
program CheckArray;

const
  N = 5; // размер одномерного массива

var
  arr: array[1..N] of Integer; // объявление массива
  i: Integer; // переменная-счетчик
  hasNegative: Boolean; // флаг наличия отрицательных элементов

begin
  hasNegative := False; // инициализация флага

  // Заполнение массива
  for i := 1 to N do
  begin
    write('Введите элемент массива arr[', i, ']: ');
    readln(arr[i]);

    // Проверка наличия отрицательных элементов
    if arr[i] < 0 then
      hasNegative := True;
  end;

  // Вывод результата
  if hasNegative then
    writeln('ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ')
  else
    writeln('ВСЕ ПОЛОЖИТЕЛЬНЫЕ');

  readln;
end.

В этом коде мы сначала объявляем одномерный массив arr и флаг hasNegative, который изначально устанавливается в значение False. Затем мы заполняем массив, проверяя каждый элемент на отрицательность. Если хотя бы один элемент отрицательный, мы устанавливаем флаг hasNegative в True. После этого выводим соответствующее сообщение в зависимости от значения флага.

Вы можете изменить значение константы N в соответствии с размером массива, который вы хотите использовать.