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

Question

Виктория Потапова

Информатика

22 мая, 10:51

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Ксения Макарова · Answer 1

var a:array[1 ... 100] of integer;

i, n, t:integer;

begin

write ('Введите длину массива: ');

readln (n);

writeln ('Введите массив: ')

for i:=1 to n do readln (a[i]);

while i
begin

i:=i+1;

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

i:=i+1;

end;

writeln ('Готовый массив: ');

for i:=1 to n do write (a[i]:4);

end.