Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tomas
Language: PASCAL
Code:
program Eljaras; 
var t:array[1..10]:byte 
     i,k,max:byte 
uses crt; 


procedure feltoltes; 
randomize; 
 for i:= 1 to 10 do 
   t[i]:=random(100) 
   write(' ',t[i],) 
 end; 
procedure legnagyobb; 
 max:=t[1] 
 for i:= 2 to 10 do 
   if t[i]>max then max:=t[i]; 
  end; 
 writeln('Legnagyobb: ',max); 
 end; 
begin; 
 clrscr; 
 Feltoltes; 
 Legnagyobb; 
end.
Comments: