Если, конечно, я правильно понял:
Цитата:
const n= 10;
type Tmass= array[1..n] of integer;
function f: Tmass;
var i:byte;
arg: Tmass;
begin
Randomize;
for i:=1 to n do
arg[i]:= Random(15)-5;
f:=arg;
end;
procedure Formir(var T: Tmass);
var A,B: Tmass;
i,e: byte;
begin
A:= f;
B:= f;
e:=1;
for i:=1 to n do
if (A[1]> B[i]) and ( B[i]>0) then begin
T[e]:= A[i]+B[i];
Inc(e);
end;
if e<n then
for i:=e to n do
T[i]:=0;
end;
var T: Tmass;
i: byte;
begin
Formir(T);
for i:=1 to n do
Write(T[i]:4);
Readln;
end.
|