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

@TIp()k · Регистрация: 18.01.2010

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

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

@Tom_Sawyer · 22.02.2010, 22:17

возрастает или убывает последовательность.

Pascal

const n=5;
var a:array[1..n] of real;
    i:integer;
    p:boolean;
begin 
 for i:=1 to n do
  begin
   write ('a[',i,']=');
   readln(a[i]);
  end;
 p:=true;
 for  i:=1 to n-1 do
  if a[i] > a[i+1] then p:=false;
   if p then writeln('Возрастает.')
   else writeln('Убывает.')
end.

@TIp()k 1 / 1 / 0 Регистрация: 18.01.2010 Сообщений: 68
		1
	Определить, представляют ли элементы массива возрастающую последовательность 22.02.2010, 22:14. Показов 9893. Ответов 1 Метки нет (Все метки) Написать програму, которая проверяет, представляют ли элементы введенного с клавиатуры массива возрастающую последовательность. 0

	22.02.2010, 22:17

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

Решение