Ответы
Ответ дал:
0
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.
Ответ дал:
0
если я правильно понял
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад