Vararr : array of integer;len, i : integer;beginwrite(Введите размер массива: );readln(len);SetLength(arr, len);for i := 0 to len -1 dobeginwrite(arr[, i, ] = );readln(arr[i]);end;for i := 1 to len - 1 doif arr[i] <= arr[i - 1] thenbeginwriteln(Последовательность не возрастающая);Exit;end;writeln(Последовательность возрастающая);end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.