Обмен элементов в массиве

@NiFROM · Регистрация: 15.11.2011

Author24 — интернет-сервис помощи студентам

дан массив. поменять местами нечетные и следующие за ними четные элементы массива.

@Puporev · 27.12.2011, 19:59

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<n do
if (a[i] mod 2<>0)and(a[i+1] mod 2=0) then
 begin
  k:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=k;
  i:=i+2;
 end
else i:=i+1;
writeln('Обмены:');
for i:=1 to n do
write(a[i]:4);
end.

@NiFROM 0 / 0 / 0 Регистрация: 15.11.2011 Сообщений: 57
		1
	Обмен элементов в массиве 27.12.2011, 19:50. Показов 1824. Ответов 1 Метки нет (Все метки) дан массив. поменять местами нечетные и следующие за ними четные элементы массива. 0

	27.12.2011, 19:59

Опции темы

Обмен элементов в массиве

Решение