Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов для abc pascal

Ну вроде бы так решается : )

Int main() {int n; cin > > n; switch (n)     {case 1 : cout < < "январь" ; break; case 2 :   cout < < "февраль" ; break; case 3 :   cout < < "март" ; break; case 4 :   cout < < "апрель" ; break; case 5 :   cout < < "май" ; break; case 6 :   cout < < "июнь" ; break; case 7 :   cout < < "июль" ; break; case 8 :   cout < < "август" ; break; case 9 :   cout < < "сентябрь" ; break; case 10 :   cout < < "октябрь" ; break; case 11 :   cout < < "ноябрь" ; break; case 12 :   cout < < "декабрь" ; break; default: cout < < "такого месяца нет"; } return 0; }

Var  a: array[1..100,1..100]of integer; m,n,i,j,s,max: integer; begin readln(m,n); for i: =1 to m do     begin   s: =0;         for j: =1 to n do                 begin                   a[i,j]: =random(100);                     write(a[i,j]: 4);                     s: =s+a[i,j];                 end;           if s> max then             max: =s;             writeln;       end; writeln('s:   ',max); end.