Упорядочить методом выбора элементы массива по убыванию модулей

@Сергей_freeze · Регистрация: 24.12.2011

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

Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20, 20). Требуется: Упорядочить методом выбора элементы массива по убыванию модулей

Kodzaev · 07.11.2012, 19:20

Pascal

Var
  a: Array[1..100] of Integer;
  i,j,n,c,c2: Integer;
BEGIN
Randomize;
Write('Введите кол-во элементов: '); Readln(n);
Writeln('Случайный массив:');
For i:=1 to n do
begin
  a[i]:=Random(41)-20;
  Write(a[i],' ');
end;
Writeln;
Writeln('Отсортированный массив:');
For i:=1 to n-1 do
begin
  c2:=i;
  For j:=i+1 to n do
  If Abs(a[c2])<Abs(a[j]) Then c2:=j;
  c:=a[i];
  a[i]:=a[c2];
  a[c2]:=c;
end;
For i:=1 to n do
Write(a[i],' ');
Readln
END.

@Сергей_freeze · 07.11.2012, 21:02 **[ТС]**

благодарю,спасиб большое!!!

Добавлено через 1 час 23 минуты
алгоритм в блок схемах как будет????

Kodzaev · 07.11.2012, 21:23

Блок-схема

@Сергей_freeze · 08.11.2012, 09:16 **[ТС]**

круто. спасибо!!!!!!!!

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
		1
	Упорядочить методом выбора элементы массива по убыванию модулей 07.11.2012, 15:29. Показов 2666. Ответов 4 Метки нет (Все метки) Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20, 20). Требуется: Упорядочить методом выбора элементы массива по убыванию модулей 0

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
	07.11.2012, 21:02 [ТС]	3
	благодарю,спасиб большое!!! Добавлено через 1 час 23 минуты алгоритм в блок схемах как будет???? 0

@Сергей_freeze 6 / 6 / 1 Регистрация: 24.12.2011 Сообщений: 352
	08.11.2012, 09:16 [ТС]	5
	круто. спасибо!!!!!!!! 0

Опции темы