Известно кол-во дней пропущенных студентом в течение года за каждый месяц.Определить...

Question

Известно кол-во дней пропущенных студентом в течение года за каждый месяц.Определить количество прогулов, если известно, что количество пропусков по болезни составляет половину всех пропусков. Определить номер месяца с максимальным количеством пропусков
ПАСКАЛЬ!

Answer 1

Var
 i,max:integer;
 a:array[1..12] of integer;
begin
  for i:=1 to 12 do
   read(a[i]);
  max:=0;
  for i:=1 to 12 do
   if a[i]>max
    then max:=a[i];
 writeln(round(max/2));
 readln
end.