Дано целое число N и набор из N вещественных чисел.....

@Spawnn · Регистрация: 09.01.2010

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

@Puporev · 02.04.2010, 09:45

У Вас не написана тема, последовательности или массивы. Думаю первое, тогда так.

Pascal

uses crt;
const max=100;
var a,b:real;
    n,i,k:byte;
begin
clrscr;
repeat
write('Размер последовательности n=');
readln(n);
until n in [1..max];
writeln('Введите числа последовательности:');
k:=0;
readln(a);
for i:=2 to n do
 begin
  readln(b);
  if b>=a then
   begin
    k:=i;
    break;
   end;
  a:=b;
 end;
write('Результат=',k);
readln
end.

@Spawnn 2 / 2 / 0 Регистрация: 09.01.2010 Сообщений: 43
		1
	Дано целое число N и набор из N вещественных чисел..... 01.04.2010, 23:49. Показов 1334. Ответов 1 Метки нет (Все метки) Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность. 0

Опции темы

Дано целое число N и набор из N вещественных чисел.....

Решение