Определить сколько раз последовательность из N произвольных чисел меняет знак. Сохранить в новом файле последовательность одного знака максимальной длины. Паскаль. Не массив

Предыдущий
вопрос Следующий
вопрос

Для решения данной задачи мы можем использовать цикл, который будет считать количество изменений знака в последовательности и сохранять последовательность одного знака максимальной длины в новый файл. Ниже представлен пример кода на языке Pascal:

program CountSignChanges;
var
input, output: text;
num, N, signChanges, maxSignLength, currentSignLength: integer;
begin
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
signChanges := 0;
maxSignLength := 0;
currentSignLength := 1;
readln(input, N);
read(input, num);
while not eof(input) do
begin
if num = 0 then
begin
signChanges := signChanges + 1;
if currentSignLength > maxSignLength then
maxSignLength := currentSignLength;
currentSignLength := 1;
end
else
begin
currentSignLength := currentSignLength + 1;
end;
read(input, num);
end;
writeln('Number of sign changes: ', signChanges);
writeln('Max sign length: ', maxSignLength);
close(input);
reset(input);
read(input, num);
while not eof(input) do
begin
if num > 0 then
begin
write(output, num);
writeln(output);
end;
read(input, num);
end;
close(input);
close(output);
end.

В данном коде мы считываем последовательность чисел из файла 'input.txt', считаем количество изменений знака и находим максимальную длину последовательности одного знака. Затем мы записываем последовательность одного знака максимальной длины в файл 'output.txt'.