Массив А размер 12 заполняется случайными целыми числами из интервала (-100; 50). Найти произведение положительных элементов массива.

Question

Информатика

Алексаха

21 мая, 19:12

Массив А размер 12 заполняется случайными целыми числами из интервала (-100; 50). Найти произведение положительных элементов массива.

+2

Ответы (1)

Знаешь ответ?

Владлен · Answer 1

Const

n = 12;

var

i, p: integer;

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

begin

p : = 1;

for i : = 1 to n do

begin

a[i] : = random (150) - 100;

write (a[i], ' ');

if a[i] > 0 then p : = p * a[i];

end;

writeln;

writeln ('P = ', p);

end.