В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах

@Alex2003 · Регистрация: 01.10.2013

В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах.

@ermolay · 24.10.2013, 09:28

Pascal

var
  a: array[1..100] of integer;
  n,i,t: integer;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: ');
  readln(n);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  for i:=1 to n div 2 do
  begin
    t:=a[i*2];
    a[i*2]:=a[i*2-1];
    a[i*2-1]:=t;
  end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do write(a[i]:4);
  readln;
end.

@Alex2003 1 / 1 / 0 Регистрация: 01.10.2013 Сообщений: 32
		1
	В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах 23.10.2013, 23:38. Просмотров 1194. Ответов 1 Метки нет (Все метки) В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах. 0

Опции темы

В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах

Решение