был
1 2 3 4 5 6 7 8 9 10
стал
4 8 12 16 20 10 8 6 4 2
Объяснение:
var
a : array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
i, n: integer;
k: integer;
Begin
n := 10;
for i := 1 to n do begin
A[n+1-i] := 2*A[i];
end;
for i := 1 to n do
write(a[i], ' ');
End.