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

@НЕваЖно · Регистрация: 03.11.2008

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

Попрошу полностью решить эти задачки.
Спосибо.
2. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.

@Arriba · 03.11.2008, 23:01

А вот и 2:

Pascal

var n,i:integer;
    a:array of integer;
begin
    WriteLn('vvedi N:');
    Readln(n);
    SetLength(a,n);
      for i:=0 to n-1 do
       begin
          Write('vvedi ',i+1,' element=');
          ReadLn(a[i]);
       end;
    i:=0;
     repeat
        if a[i+1]<a[i] then
          begin
            i:=i+1;
             if i=n-2 then
               begin
                WriteLn('ybuvajusshaja, 0');
                i:=-1;
               end;
          end
        else
          begin
             WriteLn('narushenie na:',i+2);
             i:=-1;
          end;
 
     until i=-1;
    ReadLn;
end.

@НЕваЖно 2 / 2 / 0 Регистрация: 03.11.2008 Сообщений: 63
		1
	Если данный набор образует убывающую последовательность, то вывести 0 03.11.2008, 18:47. Показов 2444. Ответов 1 Метки нет (Все метки) Попрошу полностью решить эти задачки. Спосибо. 2. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность. 0

	03.11.2008, 23:01

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

Решение