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

Question

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

Answer 1

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] <= arr[i - 1] then begin writeln('Последовательность не возрастающая'); Exit; end; writeln('Последовательность возрастающая'); end.

Comments

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

---

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

---

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

---

ABC

---

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<br> begin
writeln('Ïîñëåäîâàòåëüíîñòü íå âîçðàñòàþùàÿ');
Exit;
end;
writeln('Ïîñëåäîâàòåëüíîñòü âîçðàñòàþùàÿ');
end.

---

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<br> begin
writeln('Последовательность не возрастающая');
Exit;
end;
writeln('Последовательность возрастающая');
end.