USES CRT;
VAR A:array[1..15] of integer;
    i:integer;
BEGIN
CLRSCR;

{Заполняем массив}
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.