Задать вопрос
6 января, 05:38

Turbo pascal или Pascal abc. Сортировать отрицательные элементы массива с помощью прямого выбора.

+3
Ответы (1)
  1. 6 января, 07:31
    0
    const n=10;

    var i, j, v:integer;

    a:array [1 ... n]of integer;

    begin

    write (' Исходный массив: ') ;

    for i:=1 to n do begin

    a[i]:=random (21) - 10;

    write (a[i]:4) ;

    end;

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if (a[i]<0) and (a[j]<0) then

    if a[i] < a[j] then

    begin

    v:=a[i];

    a[i]:=a[j];

    a[j]:=v;

    end;

    writeln;

    write ('Преобразованный массив: ') ;

    for i:=1 to n do

    write (a[i]:4) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Turbo pascal или Pascal abc. Сортировать отрицательные элементы массива с помощью прямого выбора. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
Напишите полностью программу в Turbo Pascal. Создать программу в Turbo Pascal ... Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у предыдущего элемента массива
Ответы (1)
Помогите решить задачи по turbo pascal. 1) Найти сумму элементов массива целых чисел в количестве 20 меньше данного числа 2. 2) Найти все элементы массива целых чисел в количестве 20 удовлетворяющие условиям остаток от деления на 5 равен 3.
Ответы (1)