[bvl_7@bk.ru]

Все процедуры (функции) расположить не в коде головного модуля программы, а в отдельных модулях (unit), в одном или нескольких.
И задание:
Если исходная последовательность C1, С2,..., СM не содержит ни одного элемента, значение которого совпадает со значением какого-либо элемента последовательности Р1, Р2, ..., РM задать значения элементам Х1 Х2,..., ХM по правилу Xi=max(Ci, Pi)

[Alegun]

О, архивологическая находка, раньше чот не видел

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

uses Math; const   M = 10; var   C, P, X: array[0..M] of integer;   function ds(C,P: array of integer): boolean; var  i, j: integer; begin  Result:= true;  for i:= 0 to Length(C)-1 do   for j:= 0 to Length(P)-1 do    if C[i] = P[j] then Result:= false; end;   procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin  for i:= 0 to M-1 do   begin    C[i]:= Random(100);    P[i]:= Random(100);   end;    StringGrid1.ColCount:= M;    for i:= 0 to StringGrid1.ColCount-1 do   with StringGrid1 do    begin     Cells[i,0]:= 'C'+ IntToStr(i+1);     Cells[i,1]:= IntToStr(C[i]);     Cells[i,3]:= 'P'+ IntToStr(i+1);     Cells[i,4]:= IntToStr(P[i]);     Cells[i,6]:= 'X'+ IntToStr(i+1);    end; end;   procedure TForm1.FormCreate(Sender: TObject); begin  Randomize; end;   procedure TForm1.Button2Click(Sender: TObject); var  i: integer; begin  if ds(C,P) then   for i:= 0 to M-1 do X[i]:= max(C[i], P[i]);    for i:= 0 to StringGrid1.ColCount-1 do     StringGrid1.Cells[i,7]:= IntToStr(X[i]); end;