Регистрация
superplay06
24.11.2020 10:07
Информатика
Есть ответ 👍

информатика информатика!! ">

222
320
Посмотреть ответы 2

Ответы на вопрос:

mashakesea03
mashakesea03
4,4(52 оценок)

Объяснение:

нет 0, но я не уверен

xap2
xap2
4,5(51 оценок)

pascalabc.net

(пример во вложении)

begin

  arrrandom(8, -3, 8).println.where(p -> p < 0).product.println

end.

та же программа на free pascal

const

  n = 8;

var

  i, p: integer;

  a: array[1..n] of integer;

begin

  randomize;

  p : = 1;

  for i : = 1 to n do

  begin

    a[i] : = random(12) - 3;

    write(a[i], ' ');

    if a[i] < 0 then

      p : = p * a[i];

  end;

  writeln;

  writeln(p);

end.

Популярно: Информатика