Проверить, образует ли данный набор возрастающую последовательность

@qqwwee · Регистрация: 11.12.2014

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

Series21± Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE
пожалуйста побыстрей на завтра надо

@Samhain · 11.12.2014, 21:34

qqwwee, Образует ли данный набор возрастающую последовательность

@APALoff · 15.12.2014, 16:09

Pascal

Var
  i,N  : Longint;
  Fl   : Boolean;
  A,aa : Real;
Begin
  Fl:=True;
  Writeln('Введите N');
  Readln(n);
  Writeln('Вводите элементы массива');
  For i:=1 to N do
  Begin
    Readln(A);
    If i>1 then  Fl:=Fl and (A>aa);
    aa:=A;
  end;
  Writeln(Fl);
end.

@qqwwee 0 / 0 / 0 Регистрация: 11.12.2014 Сообщений: 4
		1
	Проверить, образует ли данный набор возрастающую последовательность 11.12.2014, 16:56. Показов 1539. Ответов 2 Метки нет (Все метки) Series21± Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE пожалуйста побыстрей на завтра надо 0

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	11.12.2014, 21:34	2
	qqwwee, Образует ли данный набор возрастающую последовательность 0

	15.12.2014, 16:09

Проверить, образует ли данный набор возрастающую последовательность

Решение