Question

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

Answer 1

Ответ:

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.