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

Question

Информатика

Виктория

12 декабря, 20:46

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

+3

Ответы (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.