ПОМОГИТЕ ПОЖАЛУЙСТА Определить наибольшее число идущих подряд ...

Вера

Ответ:
Program example;
Uses math;
var i,n,x,max: Integer;
a: array[1..100] of Integer;
Begin
write('Введите количество элементов массива: ');
readln(n);
max := 0;
x := 0;
randomize;
for i :=1 to n do
 Begin
  a[i]:=randomrange(-100,100); // Заполнение массива случайными числами от -100 до 100.
  write(a[i], ' ');
  if a[i] > 0 then
   Begin
    inc(x);
    If x > max then max := x;
   End
  else
   Begin
    x := 0;
   End;
 End;
writeln;
writeln('Максимум подряд идущих положительных чисел: ', max);
End.