Предмет: Информатика,
автор: AnastasiC
Составить программу которая выводит массив, где элементы с чётными индексами поменяются местами с нечётными индексами.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: mariamzajten25
Предмет: Русский язык,
автор: pazilovkair
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Информатика,
автор: Helen38
Предмет: Биология,
автор: Katerinka158