ABC Pascal 1) Составьте программу расположения элементов в массиве A(N) в порядке убывания. 2) Составьте программу перемены местами в массиве B(N) второго и предпоследнего элементов. 3) Составьте программу удаления пятого элемента массива C(N).

Предыдущий
вопрос Следующий
вопрос

1) Программа расположения элементов в массиве A(N) в порядке убывания:

program SortDescending;
const
N = 5;
var
A: array[1..N] of Integer;
i, j, temp: Integer;
begin
for i := 1 to N do
readln(A[i]);
for i := 1 to N - 1 do
for j := i + 1 to N do
if A[i] < A[j] then
begin
temp := A[i];
A[i] := A[j];
A[j] := temp;
end;
writeln('Массив в порядке убывания:');
for i := 1 to N do
writeln(A[i]);
end.

2) Программа перемены местами в массиве B(N) второго и предпоследнего элементов:

program SwapElements;
const
N = 5;
var
B: array[1..N] of Integer;
temp: Integer;
begin
for i := 1 to N do
readln(B[i]);
temp := B[2];
B[2] := B[N - 1];
B[N - 1] := temp;
writeln('Массив после перемены местами второго и предпоследнего элементов:');
for i := 1 to N do
writeln(B[i]);
end.

3) Программа удаления пятого элемента массива C(N):

program DeleteElement;
const
N = 5;
var
C: array[1..N] of Integer;
i, j: Integer;
begin
for i := 1 to N do
readln(C[i]);
for i := 5 to N - 1 do
C[i] := C[i + 1];
writeln('Массив после удаления пятого элемента:');
for i := 1 to N - 1 do
writeln(C[i]);
end.