Упорядочить массивы y(N), y(N), N <= 350 по возрастанию суммы xi + yi - Pascal ABC
Формулировка задачи:
Упорядочить массивы x(N), y(N), N <= 350 по возрастанию суммы xi + yi.
Решение задачи: «Упорядочить массивы y(N), y(N), N <= 350 по возрастанию суммы xi + yi»
textual
Листинг программы
const max=350; type mas=array[1..max] of integer; var n:integer; procedure massiv(var a:mas); var i:integer; begin for i:=1 to n do a[i]:=random(500); end; procedure print(var a:mas;s:string); var i:integer; begin writeln(s); for i:=1 to n do write(a[i]:4); writeln; end; var x,y:mas; i,j,t:integer; begin repeat write('Введите размер массива от 2 до ',max,' n='); readln(n); until(n>1)and(n<=max); massiv(x); massiv(y); print(x,'Исходный массив X'); print(y,'Исходный массив Y'); for i:=1 to n-1 do for j:=i+1 to n do if x[i]+y[i]>x[j]+y[j] then begin t:=x[i]; x[i]:=x[j]; x[j]:=t; t:=y[i]; y[i]:=y[j]; y[j]:=t; end; print(x,'Отсортированный массив Х'); print(y,'Отсортированный массив Y'); writeln('Суммы'); for i:=1 to n do write(x[i]+y[i]:4) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д