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

@Dianochka milay · Регистрация: 24.05.2013

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

Дан одномерный массив целых чисел. Упорядочить по убыванию элементы массива, расположенные между первым и максимальным по абсолютной величине элементами.

@Vakoto · 22.03.2014, 20:49

Pascal

const
  n=15;
var
  a: array [1..n] of integer;
  i,j,t,max: integer;
begin
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      a[i]:=random(201)-100;
      write(a[i]:5);
    end;
  writeln;
  max:=1;
  for i:=2 to n do
    if abs(a[max])<abs(a[i]) then max:=i;
  for i:=2 to max-2 do
    for j:=1 to max-i do
      if a[j]<a[j+1] then
        begin
          t:=a[j];
          a[j]:=a[j+1];
          a[j+1]:=t;
        end;
  writeln('Обработанный массив: ');
  for i:=1 to n do write(a[i]:5);
  writeln;
end.

@Dianochka milay -2 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 61
		1
	Упорядочить по убыванию элементы массива, расположенные между первым и максимальным по абсолютной величине элементами 22.03.2014, 15:49. Показов 1866. Ответов 1 Метки нет (Все метки) Дан одномерный массив целых чисел. Упорядочить по убыванию элементы массива, расположенные между первым и максимальным по абсолютной величине элементами. 0

Опции темы

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

Решение