Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program themad;
- const
- number_of_students=150000;
- number_of_months=12;
- girl='k';
- boy='a';
- var
- gender:char;
- gender_array:array [1..number_of_students] of char;
- time_array:array [1..number_of_students,1..number_of_months] of integer;
- sum_time:array [1..number_of_students] of integer;
- time,sum,i,j:integer;
- function max_gender(gender:char):integer;
- var
- i,max,max_possition:integer;
- begin
- max:=-1;
- max_possition:=1;
- for i:=1 to number_of_students do
- begin
- if gender_array[i] = gender then
- if sum_time[i] > max then
- begin
- max:=sum_time[i];
- max_possition:=i;
- end;
- end;
- max_gender:=max_possition
- end;
- begin
- for i:=1 to number_of_students do
- begin
- sum:=0;
- readln(gender);
- gender_array[i]:=gender;
- for j:=1 to number_of_months do
- begin
- readln(time);
- time_array[i][j]:=time;
- sum:=sum+time;
- end;
- sum_time[i]:=sum;
- end;
- writeln('Η θεση του μεγαλυτερου αγοριου ειναι: ',max_gender(boy));
- writeln('Η θεση του μεγαλυτερου κοριτσιου ειναι: ',max_gender(girl));
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement