Question

Паскаль. Дана последовательность целых чисел (массив). Найти первый элемент последовательности с отрицательным значением.

Answer 1

Ответ:

const

N = 20;

var

 a: array [1..N] of Integer;

 i: Integer;

begin

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := Random (201) - 100;

   Write (a [i], ' ');

 end;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] < 0 then begin

     WriteLn ('Первое отрицательное число = ', a [i]);

     ReadLn;

     Exit;

   end;

 end;

 WriteLn ('Нет отрицательных чисел.');

 ReadLn;

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger(n);

 var i := a.FindIndex(p -> p < 0);

 if i = -1 then

   Println('Отрицательных элементов нет')

 else

   Println('Первый отрицательный - элемент №', i+1,

     ' равный', a[i])

end.

Answer 3

Вот пример решения данной задачи на языке программирования Паскаль:

pascalCopy code
program FindFirstNegative;
var
  sequence: array of Integer;
  i: Integer;
begin
  // Инициализируем последовательность целыми числами
  sequence := [4, 6, -2, 0, -7, 9];

  // Проходим по каждому элементу последовательности
  for i := 0 to Length(sequence) - 1 do
  begin
    // Проверяем, является ли текущий элемент отрицательным
    if sequence[i] < 0 then
    begin
      // Нашли первый отрицательный элемент
      writeln('Первый отрицательный элемент: ', sequence[i]);
      break; // Выходим из цикла, так как нашли ответ
    end;
  end;

  // Если в последовательности нет отрицательных элементов
  if i = Length(sequence) then
    writeln('Отрицательные элементы отсутствуют');
end.

В этом примере мы создаем массив sequence и инициализируем его некоторой последовательностью целых чисел. Затем мы используем цикл for для прохода по каждому элементу последовательности. Если текущий элемент меньше нуля, мы выводим его на экран и выходим из цикла с помощью оператора break. Если после завершения цикла переменная i имеет значение Length(sequence), это означает, что в последовательности нет отрицательных элементов, и мы выводим соответствующее сообщение.