Question

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

Answer 1

Паскаль.

Сменой знака считается переход от отрицательного к нулю, от нуля к положительному, от отрицательного к положительному и наоборот. По крайней мере в условии не сказано обратное.

program progr1;

var count,i,n,x,znak,znak_old:integer;
begin
write('n-> '); readln(n);
count:=0;
for i:=1 to n do
begin
write(i,'-> '); readln(x);
if x < 0 then znak:=-1;
if x>0 then znak:=1;
if x=0 then znak:=0;
if i < > 1 then
if znak < > znak_old then count:=count+1;
znak_old:=znak;
end;
write('count=',count);
readln;
end.

Answer 2

Для определения, сколько раз последовательность из N произвольных чисел меняет знак, можно использовать следующий алгоритм на языке Паскаль:

1. Создайте новый файл для записи последовательности одного знака максимальной длины. 2. Инициализируйте переменные `count` и `maxCount` со значением 0. Переменная `count` будет использоваться для подсчета текущей длины последовательности одного знака, а переменная `maxCount` будет хранить максимальную длину последовательности. 3. Считайте N чисел с помощью ввода с клавиатуры или из файла. 4. Пройдитесь по всей последовательности чисел и проверьте, меняется ли знак текущего числа относительно предыдущего числа. 5. Если знак меняется, увеличьте значение `count` на 1. Если знак не меняется, сравните `count` с `maxCount` и обновите `maxCount`, если `count` больше. 6. Если `count` больше `maxCount`, обновите `maxCount` и запишите текущую последовательность чисел в новый файл. 7. Повторяйте шаги 4-6 для всех чисел в последовательности. 8. По завершении обработки всех чисел, выведите значение `maxCount` и закройте файл.

Приведенный алгоритм является общим описанием решения задачи и может быть реализован на различных языках программирования, включая Паскаль. Если вам нужен конкретный пример кода на Паскале, пожалуйста, уточните это, и я смогу предоставить вам соответствующий пример.

Примечание: В данном случае не требуется использование массива для хранения последовательности чисел.