Составить программу которая выводит массив, где элементы с чётными индексами поменяются местами с нечётными индексами.
Answers & Comments
anisa191256
Program tet; const n=6; var i,k:byte;a:array[1..n] of byte; beginwriteln('заполните таблицу '); for i:=1 to n do readln(a[i]); for i:=1 to n do write(a[i]:3); i:=1; while i<n do begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; i:=i+2; end; for i:=1 to n do write(a[i]:3); end.
Answers & Comments
var i,k:byte;a:array[1..n] of byte;
beginwriteln('заполните таблицу ');
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:3);
i:=1;
while i<n do begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; i:=i+2; end;
for i:=1 to n do write(a[i]:3);
end.