1. Программа работает. Если она что-то "не так" выдает, нужно привести текст сообщения и место ошибки. 2. Поскольку я написал тестовый пример и он программа работо Она работо ограниченно, если у Вас возникает ошибка в её работе. 3. Если у Вас возникает ошибка, а у меня нет, виноваты данные, которые программа обрабатывает. Посему нужно привести Ваши конкретные 2х10 строк данных, чтобы можно было сделать какой-то анализ. 4. Во избежание проблем с типами рекомендую добавить строку описания Dim s As Integer, min As Integer, R As Double Это приведет к типизации переменных и позволит лучше локализовать ошибку.
Const n=12; var b:array[1..n] of integer; i,k:integer; begin Randomize; Write('Последовательность: '); for i:=1 to n do begin b[i]:=Random(41)+10; Write(b[i],' ') end; Writeln; k:=5; for i:=6 to n do if b[i]>b[i-1] then k:=i else break; if k=n then Writeln('Последние 8 элементов в возрастающей последовательности') else if k>5 then Writeln('Возрастание элементов идет с номера 5 по ',k) else Writeln('Следующий за пятым элемент не возрастает') end.
Пример Последовательность: 44 10 33 40 15 33 45 26 43 45 49 48 Возрастание элементов идет с номера 5 по 7
2. Поскольку я написал тестовый пример и он программа работо Она работо ограниченно, если у Вас возникает ошибка в её работе.
3. Если у Вас возникает ошибка, а у меня нет, виноваты данные, которые программа обрабатывает. Посему нужно привести Ваши конкретные 2х10 строк данных, чтобы можно было сделать какой-то анализ.
4. Во избежание проблем с типами рекомендую добавить строку описания Dim s As Integer, min As Integer, R As Double
Это приведет к типизации переменных и позволит лучше локализовать ошибку.