Отсортировать пузыоьком по возрастанию нечетные элементы массива.

@gromil · Регистрация: 26.12.2009

@Давид · 27.12.2009, 14:33

gromil, массив одномерный?

@Inadequate · 27.12.2009, 14:34

Pascal

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,temp:integer;
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  for i:=1 to n do
    for j:=i to n do
      if odd(i) and odd(j) and (a[j]<a[i]) then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
  {âûâîäèì ìàññèâ}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.

@Давид · 27.12.2009, 14:38

Inadequate,

@gromil 2 / 2 / 4 Регистрация: 26.12.2009 Сообщений: 70
		1
	Отсортировать пузыоьком по возрастанию нечетные элементы массива. 27.12.2009, 14:31. Показов 642. Ответов 3 Метки нет (Все метки) Отсортировать пузыоьком по возрастанию нечетные элементы массива. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.12.2009, 14:33	2
	gromil, массив одномерный? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	27.12.2009, 14:38	4
	Inadequate, 0

Опции темы