program tar1;
uses crt;
const
     n=30;
     low=36;
     high=46;
type
    shoes_type= arrayof integer;
var
    X,Y:INTEGER;
   shoes:shoes_type;
procedure init(var a:shoes_type);
var
   i:integer;
begin
     for i:= low to high do
             A:=0;
end;
procedure pelet_arr(a:shoes_type);
var
    i:integer;
begin
  write( 'the measures are:':20);
  for i:=low to high do
      write(i:3);
  writeln;
  write('appears:':20);
  for i:= low to high do
  write(a:3);
  writeln;
end;
procedure rand_kelet(a:shoes_type);
var
  num,i:integer;
begin
     randomize;
     for i:= 1 to n do
     begin
          num:=36+random(11);
          inc(a);
     end;
end;
function max_shoes( x:shoes_type):integer;
var
   I,MAX:INTEGER;
   BEGIN
       MAX:=X;
       FOR I:=(LOW+1) TO HIGH DO
       BEGIN
            IF X>MAX THEN
            MAX:=X;
       END;
   WRITELN(MAX,' are the numbers of times ');
   writeln(i,'is the MOST COMMON shoe number');
   MAX_SHOES:=MAX;
   END;
   function is_big(n1,n2:integer):boolean;
   begin
        if n1>n2 then is_big:=true
        else
        is_big:=false;
   end;
   procedure is_big_arr(y:shoes_type);
   var
   I:INTEGER;
   begin
        for i:= low to high do
        if y>3 then
        writeLN(i, 'bigger then 3')
        else
        writeLN(i, 'not bigger then 3');
   end;
   BEGIN
     clrscr;
     init(shoes);
     rand_kelet(shoes);
     MAX_SHOES(SHOES);
     is_big(X,Y);
     is_big_arr(shoes);
     pelet_arr(shoes);
end.
התרגיל לא רץ לי, למה?
בתודה מראש.
Gritzman