1. Найти произведение положительных элементов массива A (16), удовлетворяющих условию: с<=Ai< = d.

Question

Информатика

Елюся

1 сентября, 15:21

1. Найти произведение положительных элементов массива A (16), удовлетворяющих условию: с<=Ai< = d.

+2

Ответы (1)

Знаете ответ на вопрос?

Семён · Answer 1

var a:array [1 ... 16] of integer;

i, s, c, d:integer;

Begin

randomize;

read (c, d) ;

for i : = 1 to 16 do begin

a[i]: = random (d+c) - c;

if a[i]>0 then s: = s + a[i];

end;

writeln (s) ;

End.