Помогите, пожалуйста. Задача в паскале абс, ** одномерные массивы. Если хотя бы один...

Question

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

Comments

Сколько элементов должно быть в массиве?

---

Вводится пользователем

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.