Randomize -
это счётчик случайных чисел, то-есть он выдаёт случайные числа в заданном диапазоне.
PHP код:
const n= 10;
type Tmass= array[1..n] of integer;
function f1: Tmass;
var i:byte;
arg: Tmass;
begin
arg[1]:=1; arg[2]:=2; arg[3]:=3; arg[4]:=4; arg[5]:=5; arg[6]:=-3; arg[7]:=3; arg[8]:=3; arg[9]:=3; arg[10]:=3;
f1:=arg;
end;
function f2: Tmass;
var i:byte;
arg: Tmass;
begin
arg[1]:=2; arg[2]:=4; arg[3]:=6; arg[4]:=9; arg[5]:=0; arg[6]:=4; arg[7]:=2; arg[8]:=3; arg[9]:=3; arg[10]:=6;
f2:=arg;
end;
procedure Formir(var T: Tmass);
var C,B: Tmass;
i,k: byte;
begin
B:= f1;
C:= f2;
k:=1;
for i:=1 to n do
if (C[i] > B[i]) and ( B[i]>0) then
begin
T[k]:= C[i]+B[i];
Inc(k);
end;
if k<n then
for i:=k to n do
T[i]:=0;
end;
var T: Tmass;
i: byte;
begin
Writeln('Rezultat slozheniya B i C pri Ci>Bi>0 :');
Writeln;
Formir(T);
for i:=1 to n do
Write(T[i]:4);
end.
Вот, держи. Кое-что поправил тут, если ты так хочешь прямо по заданию (T[k] и 2 функции...)
Только не суди строго, я сам горе-программист.