Найти наибольшую длину числовой последовательности - Turbo Pascal
Формулировка задачи:
Найти наибольшую длину числовой последовательности, состоящей из положительных элементов, в целочисленном массиве из 50 элементов
Решение задачи: «Найти наибольшую длину числовой последовательности»
textual
Листинг программы
var arr:Array [0..49]of integer; i:integer; MaxPosLen:byte; max:byte; prom:byte; begin writeln('Array='); randomize; //eto sluchayny massyv dlya testa for i:=0 to 49 do begin arr[i]:=random(5); write(arr[i],' '); end; //eto bil sluchayny massyv dlya testa max:=1; prom:=1; for i:=1 to 49 do begin if arr[i-1]+1=arr[i] then prom:=prom+1 else begin if prom>max then max:=prom; prom:=1; end; end; if prom>max then max:=prom; MaxPosLen:=max; writeln; writeln; writeln('MaxLen=',MaxPosLen); readln; end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создается массив arr, который будет содержать целые числа от 0 до 49.
- Задаются три переменные: i, MaxPosLen и max. Переменная i будет использоваться для итерации по массиву, MaxPosLen - для хранения максимальной длины последовательности, а max - для хранения текущего максимума длины последовательности.
- Выполняется цикл, в котором генерируются случайные числа от 0 до 5 для каждого элемента массива arr.
- Внутри цикла проверяется, увеличилось ли значение переменной prom (количество элементов в последовательности) больше текущего значения max. Если да, то обновляется значение max.
- После завершения внутреннего цикла проверяется, увеличилось ли значение переменной prom больше значения max. Если да, то обновляется значение max.
- В конце выводится значение переменной MaxPosLen, которое является максимальной длиной последовательности. В общем, данный код находит максимальную длину числовой последовательности в массиве arr.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д