[PASCAL] Proceduri - 6 proceduri apelate

[Leventhe]

type sir=array[1..100] of word;
var i,p,min,s,max:integer;
    x:sir;
procedure citire(x:sir, var i:integer);
var n:integer;
begin
for i:=1 to n do begin
 write('x[',i,']=');
 readln(x[i]);
                 end;
end;


procedure prim(x:sir, n:integer, var p:integer);
 var c,i:integer;
 begin  
 c:=0;  
 p:=0;  
 for i:=1 to n do begin
   if (n mod x[i]=0) then c:=c+1;
   if (c=2) then p:=p+1;
                  end;
 write(p);
 end;


procedure min(x:sir, n:integer, var min:integer);
var i:integer;
begin
 min:=x[1];
 for i:=1 to n do
  if min>x[i] then min:=x[i];
write(min);
end;


procedure par_poz_imp(x: sir, n:integer, var s:integer);
var i:integer;
begin
 s:=0;
 for i:=1 to n do
  if i mod 2 <>0 then if x[i] mod 2=0 then s:=s+x[i];


write(s);
end;


procedure suma (n:integer, var s:integer);
 var s:integer; 
begin
 s:=0;
 for i:= 1 to n do
  if (frac(sqrt(x[i])=0)) then s:=s+x[i]; 
write (s); 
end;


procedure maxim(n:integer, x:sir, var max:integer);
var i:integer;
begin
 max:=0;
 for i:=1 to n do
  if max<(x[i])then max:=x[i];
write(max);
end;


begin
 citire(x,i);
 prim(x,n,p);
 min(x,n,min);
 par_poz_imp(x,n,s);
 suma(n,s);
 maxim(n,x);
end.

 

[Leventhe]