Напишите программу пожалуйста):

Ввести 15 целых элементов массива, элемента с нечетными номерами увеличить на 10, элементы с четными номерами уменьшить на 10. Вывести на экран

спасибо огромное

рад был помочь )

USES CRT;VAR A:array[1..15] of integer;    i:integer;BEGINCLRSCR;{Заполняем массив}For i:=1 to 15 do begin   Write('Введите ',i,' элемент массива  ');   Read(A[i]);   CLRSCR; end;{Выводим массив на экран}For i:=1 to 15 do Write(A[i],'   ');{К нечетным номерам массива +10 к четным -10}For i:=1 to 15 do if i mod 2 <>0 then A[i]:=A[i]+10                else A[i]:=A[i]-10;Writeln;{Выводим на экран измененный массив}For i:=1 to 15 do Write(A[i],'   ');Readln;READLN;END.