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


Ответ: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.

ПОМОГИТЕ ПОЖАЛУЙСТА Определить наибольшее число
Оценить ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика
Вопросы из других категорий

Математика, опубликовано 13.06.2019

Помогите пожалуйста