Вопрос от посетителя
1. Найти произведение положительных элементов массива A(16), удовлетворяющих условию: с<=Ai<= d.
Отвечает Илюха:
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.