Написать программку, которая инспектирует образуют ли элементы данного массива возрастающую

Var arr : array of integer; len, i : integer; begin write('Введите размер массива: '); readln(len); SetLength(arr, len); for i := 0 to len -1 do begin write('arr[', i, '] = '); readln(arr[i]); end; for i := 1 to len - 1 do if arr[i] lt;= arr[i - 1] then begin writeln('Последовательность не вырастающая'); Exit; end; writeln('Последовательность возрастающая'); end.

Семён Седохин 2019-09-09 13:20:05

Оправдываюсь, что без переходов, мобильная версия не желает их вставлять

Плахов Степан 2019-09-09 13:28:13

надо на паскаль

Елизавета 2019-09-09 13:31:48

надобно конкретнее. Это Pascal ABC.NET. Есть ещё ABC, турбо паскаль, free Pascal, на каком конкретно необходимо?

Егор 2019-09-09 13:41:30

ABC

Гугунц Никита 2019-09-09 13:50:25

const len = 3;var arr : array [1..len] of integer; i : integer;begin writeln('

Светлана Ладченкова 2019-09-09 13:54:10

const len = 3;var arr : array [1..len] of integer; i : integer;begin writeln('Длина массива: ', len); for i := 1 to len do begin write('arr[', i, '] = '); readln(arr[i]); end; for i := 2 to len do if arr[i] <= arr[i - 1] then begin writeln('Последовательность не вырастающая'); Exit; end; writeln('Последовательность возрастающая');end.

О проекте

Написать программку, которая инспектирует образуют ли элементы данного массива возрастающую

Добро пожаловать!