Вычислите произведение чисел из промежутка[-10; 10] кратных 3. число 0 из промежутка исключить. блок-схема

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var n: =readinteger('n=');   var a: =arrrandom(n,1,10); a.println;   writeln('среднее ',a.average: 0: 5);   var s: ='';   for var i: =0 to n-1 do       if a[i]=5 then s+=i+1+' ';   if s.length> 0 then writeln('номера элементов, равных 5: ',s)   else writeln('нет элементов, равных 5') end. тестовое решение: n= 15 5 3 7 2 10 4 1 5 5 3 8 7 7 3 1 среднее 4.73333 номера элементов, равных 5: 1 8 9

//pascal abc.net v3.1 сборка 1172 const   n=5;   r=10; var   ar: array[1..n] of integer;   i,s: integer; begin   randomize;   writeln('array: ');   for i: =1 to n do     begin       ar[i]: =random(1,r);         write(ar[i]: 4);           s: =s+ar[i];     end;   writeln;   writeln('5: ');     for i: =1 to n do       if ar[i]=5 then write(i: 4);   writeln;   writeln('s=',s/n); end. пример работы: array:     5    1    2    1    45:     1s=2.6