Линейные массивы

@kristalgirl · Регистрация: 11.11.2010

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

@Dekio · 25.11.2010, 18:05

Pascal

program try;
const
n=5;
var
a: array[1..n] of integer;
i :integer;
l :boolean;
begin
l :=true;
for i:=1 to n do
readln(a[i]);
for i:=2 to n do
if a[i-1] > a[i] then
l:=false;
if l then
writeln('Образуют')
else
writeln('Не образуют');
end.

@kristalgirl 1 / 1 / 0 Регистрация: 11.11.2010 Сообщений: 9
		1
	Линейные массивы 25.11.2010, 17:58. Показов 1076. Ответов 1 Метки нет (Все метки) Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую последовательность. Помогите пожалуйста))) 0

Опции темы

Линейные массивы

Решение