Задать вопрос
2 ноября, 18:53

Pascal!

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

+4
Ответы (1)
  1. 2 ноября, 19:59
    0
    Var b, a: array[1 ... 10] of integer; I, j: integer; Begin For i:=1 to 10 do read (a[i]) ; B:=a; For j:=9 downto 1 do For i:=1 to j do If (b[i]
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Pascal! Ввести массив А[1 ... 10]. Отсортировать по убыванию элементы массива А любым методом. Вывести на экран в два столбца, стоящих ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. На экран вывести исходный и новый массивы в две строки. Отсортировать новый массив методом "пузырька".
Ответы (1)
Создать массив из 20 случ. Чисел на промежутке от - 10 до 30, отсортировать массив по убыванию На экран вывести исходный и отсортированный массив
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)