Паскаль. Массивы.

[Lion1988]

Здравствуйте! Помогите пожалуйста написать программу в Турбо Паскале7.

"Даны вещественные массивы x1,x2,…,xn и y1,y2,…,yn. Преобразовать их по правилу: большее из xi и yi принять в качестве нового значения xi, а меньшее – в качестве нового значения yi."

[Stilet]

Сам о как думаешь делать? В методичке что онаписано?

[Utkin]

Просто сравнение двух чисел в цикле и их перестановка. Начни хотя бы, я дал тебе направление.

[Lion1988]

дали только задание. Я в программирование слаб.

[ОДИНОЧЕСТВО В СЕТИ]

uses
  crt;
var 
  x,y:array[1..100] of Real;
  i,n:Integer;
  m:Real;
  t:Real;

function max(a,b:Real):Real;
begin
  if a>=b then max:=a
    else max:=b;
end;

function min (a,b:Real):Real;
begin
  if a<=b then min:=a
    else min:=b;
end;

begin
  Writeln('input n');
  Readln(n);
  Randomize;
  for i:=1 to n do
    begin
      x[i]:=Random(20)+random(100)/100;
      y[i]:=Random(20)+random(100)/100;
    end;
  Writeln('----old x----');
  For i:= 1 to n do
    write(x[i]:8:2);
  Writeln;
  Writeln('----old y----');
  For i:= 1 to n do
    write(y[i]:8:2);
  For i:=1 to n do
  begin
    m:=max(x[i],y[i]);
    t:=Min(x[i],y[i]);
    x[i]:=m;
    y[i]:=t;
  end;
  Writeln;
  Writeln('----new x----');
  For i:= 1 to n do
    write(x[i]:8:2);
  Writeln;
  Writeln('----new y----');
  For i:= 1 to n do
    write(y[i]:8:2);
  Writeln;
  Writeln('---END---');
  Writeln('Press any key to exit!');
  Readln;
end.

[Lion1988]

Спасибо большое за помощь!