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.