Array69. Дан массив размера $$N$$ ($$N$$ — четное число). Поменять местами его первый элемент со вторым, третий — с четвертым и т. д.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
program Array69; var a : array[1..10] of integer; N,i:Integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; i:=1; while i<=N do begin a[i]:=a[i]+a[i+1]; a[i+1]:=a[i]-a[i+1]; a[i]:=a[i]-a[i+1]; i:=i+2; end; for i:=1 to N do writeln(i,' :',a[i]); end. |
Задачи из раздела Array можно посмотреть здесь.
что значат строки с 20 по 22
Мы меняем значения элементов массива a[i] и a[i+1] между собой.
Можно было бы записать это так:
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;