procedure sort(var a,b,c,d:integer);
var x:integer;
begin
if a > b then
begin
x:=a; a:=b; b:=x;
end;
if c > d then
begin
x:=c; c:=d; d:=x;
end;
if a > c then
begin
x:=a; a:=c; c:=x;
end;
if b > d then
begin
x:=b; b:=d; d:=x;
end;
if b > c then
begin
x:=b; b:=c; c:=x;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,a,b,c,d:integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<1)then
begin
ShowMessage('Введите целое положительное число');
Edit1.Clear;
Edit1.SetFocus;
exit;
end;
randomize;
Memo1.Clear;
for i:=1 to n do
begin
a:=random(1001);
b:=random(1001);
c:=random(1001);
d:=random(1001);
Memo1.Lines.Add('Введенные числа '+inttostr(a)+' '+inttostr(b)+' '+
inttostr(c)+' '+inttostr(d));
sort(a,b,c,d);
Memo1.Lines.Add('Отсортированные числа '+inttostr(a)+' '+inttostr(b)+' '+
inttostr(c)+' '+inttostr(d));
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.