Как в Паскале поменять первый элемент со вторым и предпоследний элемент с последним? (Одномерный целочисленный массив размерностью N)

Question

Информатика

Вечеслав

14 сентября, 05:16

Как в Паскале поменять первый элемент со вторым и предпоследний элемент с последним? (Одномерный целочисленный массив размерностью N)

+5

Ответы (1)

Знаете ответ?

Евдоня · Answer 1

Program tt;

Var a: array [1 ... 100] of integer;

N, B:integer;

Begin

Read (n) ;

For i:=1 to n do

Read (a[i]) ;

B:=a[1];

A[1]:=a[2];

A[2]:=b;

B:=a[n];

A[n]:=a[n-1];

A[n-1]:=b;

For i:=1 to n do

write (a[i],’,’) ;

End.