Показать сообщение отдельно
Старый 28.04.2014, 02:59   #5 (permalink)
Madara
Member
 
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Randomize - это счётчик случайных чисел, то-есть он выдаёт случайные числа в заданном диапазоне.

PHP код:
const n10;

type Tmass= array[1..nof integer;

function 
f1Tmass;
var 
i:byte;
argTmass;
begin
arg
[1]:=1arg[2]:=2arg[3]:=3arg[4]:=4arg[5]:=5arg[6]:=-3arg[7]:=3arg[8]:=3arg[9]:=3arg[10]:=3
f1:=arg;
end;

function 
f2Tmass;
var 
i:byte;
argTmass;
begin
arg
[1]:=2arg[2]:=4arg[3]:=6arg[4]:=9arg[5]:=0arg[6]:=4arg[7]:=2arg[8]:=3arg[9]:=3arg[10]:=6
f2:=arg;
end;

procedure Formir(var TTmass);                      
var 
C,BTmass;                          
i,kbyte;                                    
begin                                            
B
:= f1;                                        
C:= f2;                                                    
k:=1;                                                          
for 
i:=1 to n do                                                    
if (
C[i] > B[i]) and ( B[i]>0then                                                
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 
TTmass;
ibyte;

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 функции...)
Только не суди строго, я сам горе-программист.
Madara вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070