Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию

@robert0801 · Регистрация: 15.04.2013

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

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

@Striker · 11.06.2013, 09:17

Делал похожее, перепишите чуть-чуть и всё ок.

Pascal

const
  n = 20;
 
var
  mas: array[1..n] of integer;
  i, j, c: integer;
 
begin
  Writeln('Исходная: ');
  for i := 1 to n do
  begin
    mas[i] := random(9) + 1;
    Write(mas[i]:4);
  end;
  WriteLN;
  for j := 1 to n div 2 do
  begin
    i := 3;
    repeat
      if (mas[i] > mas[i - 2]) then
      begin
        c := mas[i];
        mas[i] := mas[i - 2];
        mas[i - 2] := c;
      end;
      i := i + 2;
    until i > n;
  end;
  for j := 1 to n div 2 do
  begin
    i := 4;
    repeat
      if (mas[i] < mas[i - 2]) then
      begin
        c := mas[i];
        mas[i] := mas[i - 2];
        mas[i - 2] := c;
      end;
      i := i + 2;
    until i > n;
  end;
  
  Writeln;
  Writeln('Отсортированная: ');
  Writeln;
  for i := 1 to n do
    Write(mas[i]:4);
end.

@robert0801 5 / 5 / 0 Регистрация: 15.04.2013 Сообщений: 118
		1
	Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию 10.06.2013, 22:40. Показов 2781. Ответов 1 Метки нет (Все метки) Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в три раза, а нечетные в 2 раза. Содержимое обработанного таким образом массива вывести на экран. 0

	11.06.2013, 09:17

Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию

Решение