Решаем задачи Абрамян на Паскале. Series22

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

Решение:

program Series22;
var
  i,N,Num,Num1,El :Integer;
  b:boolean;
begin
 b:=TRUE;
 El:=0;
 Write('N:');
 Readln(N);

 for i:=1 to N do
   begin
    write('Введите ',i,' элемент последовательности :');
    Readln(Num);
    if (((Num1<Num) and (i<>1)) and b) then
     begin
      El:=i;
      b:=FALSE;
     end;
     Num1:=Num;
   end;
  Writeln(El);
end.

program Series22;

var

i,N,Num,Num1,El :Integer;

b:boolean;

begin

b:=TRUE;

El:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

write('Введите ',i,' элемент последовательности :');

Readln(Num);

if (((Num1<Num) and (i<>1)) and b) then

begin

El:=i;

b:=FALSE;

end;

Num1:=Num;

end;

Writeln(El);

end.

Решение от Kirk:

Program s22;

Var 
 n,i,k: integer;
 c1,c2: real;
 
Begin
 k:=0;
 Write('N=');
 Readln(n);
 Write('Enter number#1: ');
 Readln(c2);
 For i:=2 to n do
  Begin
   Write('Enter number #',i,': ');
   Readln(c1);
    If (c1>c2) and (k=0) then
     Begin
      k:=i;
      c2:=c1;
     End
    Else c2:=c1;
  End;
 Writeln(k);
End.

Program s22;

Var

n,i,k: integer;

c1,c2: real;

Begin

k:=0;

Write('N=');

Readln(n);

Write('Enter number#1: ');

Readln(c2);

For i:=2 to n do

Begin

Write('Enter number #',i,': ');

Readln(c1);

If (c1>c2) and (k=0) then

Begin

k:=i;

c2:=c1;

End

Else c2:=c1;

End;

Writeln(k);

End.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 7

uses PT4;
var n,i:integer;
    k:byte;
    num:real;
    arr:array of real;
begin
  Task('Series22');
read(n);
SetLength(arr,n);
for i:=0 to n-1 do
  begin
    read(num);
    arr[i]:=num;
  end;
for i:=0 to n-2 do
  begin
    if arr[i]>arr[i+1] then k:=0
    else 
      begin
        k:=i+2;
        break;
      end;
  end;
write(k);
end.

uses PT4;

var n,i:integer;

k:byte;

num:real;

arr:array of real;

begin

Task('Series22');

read(n);

SetLength(arr,n);

for i:=0 to n-1 do

begin

read(num);

arr[i]:=num;

end;

for i:=0 to n-2 do

begin

if arr[i]>arr[i+1] then k:=0

else

begin

k:=i+2;

break;

end;

write(k);

end.

Ответить

Было:

program Series22;
const
 N=5;
var
 i,Ne :Integer;
 m :array [1..N] of real;
begin
 for i:=1 to N do
  begin
   write('Введите ',i,' число из набора :');
   Readln(m[i]);
  end;
 Ne:=0;
 for i:=N-1 downto 1 do
  if (m[i]<=m[i+1]) then Ne:=i;
 writeln(Ne);
 readln;
end.

program Series22;

const

N=5;

var

i,Ne :Integer;

m :array [1..N] of real;

begin

for i:=1 to N do

begin

write('Введите ',i,' число из набора :');

Readln(m[i]);

end;

Ne:=0;

for i:=N-1 downto 1 do

if (m[i]<=m[i+1]) then Ne:=i;

writeln(Ne);

readln;

end.

Стало:

program Series22;
var
  i,N,Num,Num1,El :Integer;
  b:boolean;
begin
 b:=TRUE;
 El:=0;
 Write('N:');
 Readln(N);

 for i:=1 to N do
   begin
    write('Введите ',i,' элемент последовательности :');
    Readln(Num);
    if (((Num1 < num ) and (i<>1)) and b) then
     begin
      El:=Num;
      b:=FALSE;
     end;
     Num1:=Num;
   end;
  Writeln(El);
end.

program Series22;

var

i,N,Num,Num1,El :Integer;

b:boolean;

begin

b:=TRUE;

El:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

write('Введите ',i,' элемент последовательности :');

Readln(Num);

if (((Num1 < num ) and (i<>1)) and b) then

begin

El:=Num;

b:=FALSE;

end;

Num1:=Num;

end;

Writeln(El);

end.

Ответить

olegst1975

20.12.2015 в 00:40

строка 17
El:=Num;
нужно вывести не само число, а его порядковый номер, заменяем на
El:=i;

Ответить
- Anton
  
  21.12.2015 в 06:49
  
  Поправил,
  было:
  
  El:=Num;
  
  1
  
  El:=Num;
  
  стало:
  
  El:=i;
  
  1
  
  El:=i;
  
  Ответить

Program s22;

Var 
 n,i,k: integer;
 c1,c2: real;
 
Begin
 k:=0;
 Write('N=');
 Readln(n);
 Write('Enter number#1: ');
 Readln(c2);
 For i:=2 to n do
  Begin
   Write('Enter number #',i,': ');
   Readln(c1);
    If (c1>c2) and (k=0) then
     Begin
      k:=i;
      c2:=c1;
     End
    Else c2:=c1;
  End;
 Writeln(k);
End.

Program s22;

Var

n,i,k: integer;

c1,c2: real;

Begin

k:=0;

Write('N=');

Readln(n);

Write('Enter number#1: ');

Readln(c2);

For i:=2 to n do

Begin

Write('Enter number #',i,': ');

Readln(c1);

If (c1>c2) and (k=0) then

Begin

k:=i;

c2:=c1;

End

Else c2:=c1;

End;

Writeln(k);

End.

Ответить

Anton

11.04.2017 в 10:07

Добавил решение в шапку.

Ответить

//pascalABC.net
begin
  var n:=ReadlnInteger('n =');
  write('введите ',n,' чисел: ');
  var a:=ReadArrInteger(n);
  var i:=1;
  while i<n do
    if a[i-1]>a[i] then inc(i)
    else break;
  i:=i=n?0:i+1;
  write(i);
  readln;readln;
end.

//pascalABC.net

begin

var n:=ReadlnInteger('n =');

write('введите ',n,' чисел: ');

var a:=ReadArrInteger(n);

var i:=1;

while i<n do

if a[i-1]>a[i] then inc(i)

else break;

i:=i=n?0:i+1;

write(i);

readln;readln;

end.

Ответить

Решаем задачи Абрамян на Паскале. Series22

Комментарии:

Комментарии 7

Добавить комментарий Отменить ответ