Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен»

@Lamike · Регистрация: 25.09.2013

Author24 — интернет-сервис помощи студентам

Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен».

помогите прошу

@ildwine · 04.11.2013, 18:33

Pascal

const
  m = 5;
var
  a : array [1..m] of integer;
  i : byte;
  k : integer;
begin
  k := 0;
  for i := 1 to m do
  begin
    write('введите ', i, ' элемент массива: ');
    readln(a[i])
  end;
  for i := 2 to m do
    if a[i] >= a[i-1] then inc(k) else dec(k);
  if k = m - 1 then writeln('упорядочен по возрастанию') else
    if k = -(m - 1) then writeln('упорядочен по убыванию') else
      writeln('не упорядочен')  
end.

@Lamike 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 36
		1
	Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен» 04.11.2013, 17:46. Показов 1629. Ответов 1 Метки нет (Все метки) Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен». помогите прошу 0

	04.11.2013, 18:33

Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен»

Решение