Взаданном одномерном массиве поменять местами соседние элементы. (паскаль)

297

305

Посмотреть ответы 2

Ответы на вопрос:

Kir2905

Информатика

4,4(24 оценок)

Var a : array[1..10] of integer; n, z: integer; begin readln(n); for var i: =1 to n do readln(a[i]); for var i: =1 to n-1 do begin z: =a[i]; a[i]: =a[i+1]; a[i+1]: =z; end; for var i: =1 to n do writeln(a[i]); end.

катерринкаа

Информатика

4,4(71 оценок)

1492 - открытие колумбом америки 1961 - первый полет человека в космос 1957 - запуск первого искусственного спутника земли 1946 - создание самого первого компьютера 1951 - открытие радиосвязи 988 - принятие христианства на руси 1895 - создание первого отечественного компьютера 1941 - начало великой отечественной войны 1147 - первое упоминание в летописи о москве