Задать вопрос
27 декабря, 05:49

Сформировать два массива содержащих n элементов. Отсортиропять первые по возрастанию, а второй по убывания. Вывести на экран. З

атем первый массив просумировать со вторым, а из второго вычесть первый

+1
Ответы (1)
  1. 27 декабря, 06:55
    0
    Uses

    crt;

    const

    n = 100;

    var

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

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

    i, j, m: byte;

    p1, p2: integer;

    begin

    write ('Количество элементов: ') ;

    readln (m) ;

    clrscr;

    writeln ('Ввод массива A') ;

    writeln;

    for i:=1 to m do

    begin

    write ('A[', i,']: ') ;

    readln (a[i]) ;

    end;

    clrscr;

    writeln ('Ввод массива B') ;

    writeln;

    for i:=1 to m do

    begin

    write ('B[', i, ']: ') ;

    readln (b[i]) ;

    end;

    clrscr;

    writeln;

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

    for i:=1 to m do write (a[i]:4) ;

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

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

    for i:=1 to m-1 do

    for j:=m downto i do

    begin

    if a[i] > a[j] then

    begin

    p1:=a[i]; a[i]:=a[j]; a[j]:=p1;

    end;

    if b[j] > b[i] then

    begin

    p2:=b[i]; b[i]:=b[j]; b[j]:=p2;

    end;

    end;

    writeln; writeln; writeln ('Массив А по возрастанию:') ;

    for i:=1 to m do write (a[i]:4) ;

    writeln; writeln; writeln ('Массив B по убыванию:') ;

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

    writeln; writeln; writeln ('Массив A+B:') ;

    for i:=1 to m do

    begin

    a[i]:=a[i]+b[i];

    write (a[i]:4) ;

    a[i]:=a[i]-b[i];

    end;

    writeln; writeln; writeln ('Массив B-A:') ;

    for i:=1 to m do

    begin

    b[i]:=b[i]-a[i];

    write (b[i]:4) ;

    end;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сформировать два массива содержащих n элементов. Отсортиропять первые по возрастанию, а второй по убывания. Вывести на экран. З атем первый ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Организовать ввод чисел в массив E состоящий из 7 элементов ввод с клавиатуры сформировать новый массив К состоящий из элементов которые равны квадратам элементов массива Е вывести элементы массива Е найти и вывести номер минимального элемента
Ответы (1)
Массив заполнен случайным образом 20 числами в интервале от 0 до 100. 1) найти максимальный и минимальный элемент массива, а так же их сумму 2) найти среднее арифметическое элементов массива 3) из элементов массива сформировать два массива с четными
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)