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

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

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

+2
Ответы (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 элементов. Отсортиропять первые по возрастанию, а второй по убывания. Вывести на экран. З атем первый ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы