Арий
7 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА!!! "Дан Массив из n целых элементов. Определить, есть ли в массиве отрицательные числа".
ОТВЕТЫ
Nesivesch
Jul 12, 2019
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),-5,99); a.Println;
if a.Any(x-gt;xlt;0) then Writeln(Есть отрицательные числа)
else Writeln(Нет отрицательных чисел1)
end.
Пример
n= 20
29 37 2 84 48 28 11 49 12 57 61 64 93 25 43 25 -3 9 70 62
Есть отрицательные числа
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger(n=),-5,99); a.Println;
if a.Any(x-gt;xlt;0) then Writeln(Есть отрицательные числа)
else Writeln(Нет отрицательных чисел1)
end.
Пример
n= 20
29 37 2 84 48 28 11 49 12 57 61 64 93 25 43 25 -3 9 70 62
Есть отрицательные числа
180
Смежные вопросы:
