Question

Дано 100 чисел. Проверить правда ли, что произведение отрицательных чисел не превосходят 100 по модулю. Решить в паскале, помогите пожалуйста)

Answer 1

Var
  a: array [1..100] of integer;
  i: integer;
  b: Int64 := 1;

begin 
  for i := 1 to 100 do
  begin
    a[i] := random(-2, 20);
    write(a[i], ' ');
  end;
  writeln();
  for i := 1 to 100 do
  begin
    b *= (a[i] < 0 ? abs(a[i]) : 1);
  end;
  writeln(b <= 100, '(', b, ')');
end.