Задать вопрос
24 июля, 05:49

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

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

+5
Ответы (1)
  1. 24 июля, 06:32
    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 элементов. Отсортиропять первые по возрастанию, а второй по убывания. Вывести на экран. З атем первый ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы