1. найти произведение положительных элементов - вопрос №98037116 от Nuraaaykaaa 14.07.2020 09:54

Question

Информатика: 1. найти произведение положительных элементов массива a(16), удовлетворяющих условию: с =ai = d.

Nuraaaykaaa · Answer

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.

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