Advertisement
Guest User

Untitled

a guest
May 27th, 2016
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. program themad;
  2.  
  3. const
  4. number_of_students=150000;
  5. number_of_months=12;
  6. girl='k';
  7. boy='a';
  8.  
  9. var
  10. gender:char;
  11. gender_array:array [1..number_of_students] of char;
  12. time_array:array [1..number_of_students,1..number_of_months] of integer;
  13. sum_time:array [1..number_of_students] of integer;
  14. time,sum,i,j:integer;
  15.  
  16. function max_gender(gender:char):integer;
  17. var
  18. i,max,max_possition:integer;
  19. begin
  20. max:=-1;
  21. max_possition:=1;
  22. for i:=1 to number_of_students do
  23. begin
  24. if gender_array[i] = gender then
  25. if sum_time[i] > max then
  26. begin
  27. max:=sum_time[i];
  28. max_possition:=i;
  29. end;
  30. end;
  31. max_gender:=max_possition
  32.  
  33. end;
  34.  
  35. begin
  36.  
  37. for i:=1 to number_of_students do
  38. begin
  39. sum:=0;
  40. readln(gender);
  41. gender_array[i]:=gender;
  42. for j:=1 to number_of_months do
  43. begin
  44. readln(time);
  45. time_array[i][j]:=time;
  46. sum:=sum+time;
  47. end;
  48. sum_time[i]:=sum;
  49. end;
  50. writeln('Η θεση του μεγαλυτερου αγοριου ειναι: ',max_gender(boy));
  51. writeln('Η θεση του μεγαλυτερου κοριτσιου ειναι: ',max_gender(girl));
  52.  
  53. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement