Предмет: Информатика, автор: Diim

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

Ответы

Автор ответа: furs1975
0

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.

 

Автор ответа: Diim
0
Последний и предпоследний элементы не меняет
Автор ответа: furs1975
0
сейчас поправлю
Автор ответа: furs1975
0
исправил
Автор ответа: Diim
0
Большое спасибо
Автор ответа: furs1975
0
пожалуйста) отметь как лучший ответ
Похожие вопросы
Предмет: География, автор: leontevavaleria811
Предмет: География, автор: leontevavaleria811