Предмет: Информатика,
автор: denis789987
Написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую последовательность.
Ответы
Автор ответа:
0
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.
Автор ответа:
0
надо на паскаль
Автор ответа:
0
надо конкретнее. Это Pascal ABC.NET. Есть ещё ABC, турбо паскаль, free Pascal, на каком именно нужно?
Автор ответа:
0
ABC
Похожие вопросы
Предмет: Математика,
автор: elzadakudaybergenova
Предмет: Биология,
автор: asylzhansajlaubekova
Предмет: Қазақ тiлi,
автор: bakhtiyarovmadi
Предмет: Математика,
автор: misharindaniil