Упорядочить массивы 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 - Pascal ABC»

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.

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ