На вход в первой строке подается целое положительное число N, а во второй строке — массив из N вещественных чисел. Выполнив однократный просмотр массива, найти максимальное количество подряд идущих положительных элементов. Если положительных элементов нет, то вывести 0.
uses PT4Exam; const P = 100; var m: array[1..P] of real; i, n, k, max: integer; begin Task('ExamBegin55'); Readln(n); k := 0; max := 0; for i := 1 to n do begin Read(m[i]); if m[i] > 0 then k := k + 1 else k := 0; if k > max then max := k; end; Write(max); end.