все элементы заданного массива вещественных чисел A(N),начиная с первого по порядку элемента, уменьшить на единицу.Новый массив переписать в S(N).

ПОМОГИТЕ ПОЖАЛУЙСТААААААА:*

 

 

 

for j:=1 to n dofor i:=1 to n doif i=j then s[j]:=a[i];Понимаете ли, у вас вот это вложение циклов - проклятие оптимизации:) зачем прогонять пару циклов с проверкой на совпадение индексов, если можно загнать их под один цикл, где индексы всегда равны будут?

хорошо, я с вами соглашусь)