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

Question

Информатика

Ила

26 апреля, 12:25

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

+5

Ответы (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.