Предмет: Информатика, автор: versaj

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


toxamactep: Сколько элементов должно быть в массиве?
versaj: Вводится пользователем

Ответы

Автор ответа: Вованичикчка
0

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.

Похожие вопросы
Предмет: Қазақ тiлi, автор: Катя0224
Предмет: Алгебра, автор: Валерия1177