Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 21.11.2019
Сообщений: 35
1

Напишите программу, которая сортирует массив по возрастанию

21.11.2019, 21:50. Просмотров 356. Ответов 1
Метки нет (Все метки)

Напишите программу, которая сортирует массив по возрастанию. Массив из 10 целых чисел. Вывести отсортированный массив. С новой строки вывести каждый 2-й элемент отсортированного массива.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2019, 21:50
Ответы с готовыми решениями:

Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами
Здравствуйте,помогите пожалуйста написать код.Напишите программу, которая сортирует по возрастанию...

Напишите программу, которая сортирует массив по возрастанию "методом камня": аналогично "методу пузырька", но
Помогите пожалуйста написать код.Напишите программу, которая сортирует массив по возрастанию...

Напишите программу, которая сортирует массив по убыванию
4. Напишите программу, которая сортирует массив по убыванию. Массив из 15 дробных чисел. Вывести...

Напишите программу, которая сортирует массив целых чисел и определяет количество различных значений в нём
Помогите написать код,спасибо.Напишите программу, которая сортирует массив целых чисел и определяет...

1
1957 / 666 / 485
Регистрация: 15.01.2019
Сообщений: 2,036
21.11.2019, 22:12 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Project1;
const
  n = 10;
var
  a: array [1..n] of integer; { Переменная для  хранения массива.}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  tmp: integer; { Промежуточная переменная для сортировки массива.}
begin
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  for i := 1 to n-1 do      { Сортировка }
    for j := 1 to n-i do
      if a[j] > a[j+1] then
        begin
          tmp := a[j];
          a[j] := a[j+1];
          a[j+1] := tmp;
        end;
  writeln('Отсортированный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  i:= 2;
  writeln('Массив с выбранными элементами: ');
  while i <= n do
  begin
    write(a[i]:5);
    i:= i + 2;
  end;
  Readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2019, 22:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Массив содержит четное количество элементов, которая сортирует первую половину массива по возрастанию
Массив содержит четное количество элементов, которая сортирует первую половину массива по...

Напишите программу, которая сортирует массив по убыванию суммы цифр числа. Используйте функцию, которая определяет сумму
Напишите программу, которая сортирует массив по убыванию суммы цифр числа. Используйте функцию,...

Написать программу, которая сортирует массив из 8 целых элементов по возрастанию.
Написать программу, которая сортирует массив из 8 целых элементов по возрастанию.

Написать программу, которая сортирует по возрастанию введенный с клавиатуры одномерный массив
Написать программу, которая сортирует по возрастанию введенный с клавиатуры одномерный массив


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.