ТутРешу.Ру

Сформировать два массива содержащих n элементов

Задание:

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

Решение:

Usescrt; constn=100; vara: array [1… n] of integer; b: array [1… n] of integer; i, j, m: byte; p1, p2: integer; beginwrite ('Количество элементов: '); 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 dofor j: =m downto i dobeginif 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 dobegin 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 dobegin b[i]: =b[i]-a[i]; write (b[i]: 4); end; readln; end.




Знаете другой ответ?

Отправить свой ответ