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

На Паскале.

Задан массив из N действительных чисел (N может быть задано не более 25). Отрицательные

числа в заданном массиве упорядочить по убыванию их значений. Взаимное расположение

отрицательных и положительных чисел сохранить. Вывести на экран исходный и новый

массивы.

+5
Ответы (1)
  1. 2 ноября, 03:22
    0
    Const n=20;

    var

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

    i, j, k, m, c:integer;

    begin

    Randomize;

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

    for i:=1 to n do

    begin

    a[i]:=random (51) - 25;

    write (a[i]:5) ;

    end;

    writeln;

    j:=0;

    for i:=1 to n do

    if a[i]<0 then begin j:=j+1; b[j]:=a[i]; end;

    m:=j;

    for k : = 1 to m-1 do

    for i : = 1 to m-k do

    if (b[i]
    begin

    c:=b[i]; b[i]:=b[i+1]; b[i+1]:=c;

    end;

    writeln ('Вспомогательный массив:') ;

    for i:=1 to m do write (b[i]:5) ;

    writeln;

    j:=0;

    for i:=1 to n do

    if a[i]<0 then begin j:=j+1; a[i]:=b[j]; end;

    writeln ('Полученный массив:') ;

    for i:=1 to n do write (a[i]:5) ;

    writeln;

    end.

    Пример:

    Исходный массив:

    -15 - 8 - 6 - 13 15 24 5 - 2 14 - 1 19 - 2 - 7 - 8 - 23 20 - 2 7 - 2 - 10

    Вспомогательный массив:

    -1 - 2 - 2 - 2 - 2 - 6 - 7 - 8 - 8 - 10 - 13 - 15 - 23

    Полученный массив:

    -1 - 2 - 2 - 2 15 24 5 - 2 14 - 6 19 - 7 - 8 - 8 - 10 20 - 13 7 - 15 - 23
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «На Паскале. Задан массив из N действительных чисел (N может быть задано не более 25). Отрицательные числа в заданном массиве упорядочить по ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1.) Вывести на экран одномерный целочисленный массив, состоящий из 10 целых чисел из диапазона [-100; 100] 2.) Задан одномерный целочисленный массив, состоящий из 7 случайных чисел.
Ответы (1)