Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.
не понял задания. если придумать цепочку рассуждений оканчивающую на 5, то
35-30-25-20-15-10-5. - табл умножения
1-2-3-4-5. - счет от единицы
Ошибка в написании формулы, в зависимости от того, что ты делала