Отсортируйте первую половину массива по убыванию, а вторую по возрастанию

29.03.2014, 20:40. **Показов** 1718. **Ответов** 1

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

Дан массив А состоящий из 15 целых чисел. Отсортируйте первую половину массива по убыванию, а вторую по возрастанию. Введите контрольное число и определите его наличие в массиве А. В положительном случае выведите найденное число и его индекс на экран.

@IceCortez · 31.03.2014, 22:10

Если я не ошибаюсь, то отсортировав половины массива из 15 элементов, то 8 останется на месте. Если это не так, напишите.

Pascal

var
  x, i, j: int64;
  a: array [1..15] of int64;
 
procedure swap(var a, b: int64);
var
  c: int64;
begin
  c := a;
  a := b;
  b := c;
end;
 
begin
  for i := 1 to 15 do
    read(a[i]);
  read(x);
  for i := 1 to 6 do
    for j := 1 to 6 do 
      if a[j] < a[j + 1] then 
        swap(a[j], a[j + 1]);
  for i := 9 to 14 do
    for j := 9 to 14 do 
      if a[j] > a[j + 1] then 
        swap(a[j], a[j + 1]);
  for i := 1 to 15 do
    if a[i] = x then
      writeln(x, ' ', i);
end.

vipegor
		1
	Отсортируйте первую половину массива по убыванию, а вторую по возрастанию 29.03.2014, 20:40. Показов 1718. Ответов 1 Метки нет (Все метки) Дан массив А состоящий из 15 целых чисел. Отсортируйте первую половину массива по убыванию, а вторую по возрастанию. Введите контрольное число и определите его наличие в массиве А. В положительном случае выведите найденное число и его индекс на экран.

	31.03.2014, 22:10

Отсортируйте первую половину массива по убыванию, а вторую по возрастанию

Решение