Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  anyád
Language: PASCAL
Code:
program asd;
uses crt;
var t:array[1..10] of byte;
    i,j,k,l:byte;
 clrscr; 
 randomize; 
 feltolt; 
 kiir; 
 writeln; 
 rendez; 
 kiir;readln; 
end; 
procedure kiir; 
     for i:= 1 to 10 do 
        write(' ';t[i]);
procedure feltolt;
     t[1]:=randomize(100);
     for i:= 2 to 10 do
     begin
     repeat
      t[i]:=random(100);
      j:=0;
       repeat
          j:=j+1
      until(j=i-1)or(t[i]=t[j]);
     until t[i]<>t[j];
end;
end; 
end;     
Comments: