ПОМОГИТЕ ПОЖАЛУЙСТА
Определить наибольшее число идущих подряд положительных элементов в массиве А
Нарисуйте блок схему.
Ответы на вопрос
Ответил y702019
0
Ответ:
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.
Приложения:
Новые вопросы