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

Series20. Дано целое число $$N$$ ($$> 1$$) и набор из $$N$$ целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество $$K$$ таких элементов.

Решение:

program Series20;
var
  i,K,N,Num,Num1 :Integer;
begin
 Write('N:');
 Readln(N);
 K:=0;
 for i:=1 to N do
   begin
    write('Введите ',i,' число из набора :');
    Readln(Num);
    if (Num1<Num) and (i<>1) then
     begin
      writeln(Num1);
      inc(K);
     end;
     Num1:=Num;
   end;
  Writeln(K);
end.

program Series20;

var

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

begin

Write('N:');

Readln(N);

K:=0;

for i:=1 to N do

begin

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

Readln(Num);

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

begin

writeln(Num1);

inc(K);

end;

Num1:=Num;

end;

Writeln(K);

end.

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

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

uses PT4;
var n,i,k,num:integer;
var arr: array of integer;
begin
  Task('Series20');
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
      begin
        k:=k+1;
        write(arr[i]);
      end;
  end;
    write(k);
end.

uses PT4;

var n,i,k,num:integer;

var arr: array of integer;

begin

Task('Series20');

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

begin

k:=k+1;

write(arr[i]);

end;

write(k);

end.

Ответить

Было:

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

program Series20;

const

N=5;

var

i, K :Integer;

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

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

K:=0;

for i:=1 to N-1 do

if (m[i]<m[i+1]) then

begin

writeln(m[i]);

K:=K+1;

end;

writeln('K: ',K);

readln;

end.

Стало:

program Series20;
var
  i,K,N,Num,Num1 :Integer;
begin
 Write('N:');
 Readln(N);
 K:=0;
 for i:=1 to N do
   begin
    write('Введите ',i,' число из набора :');
    Readln(Num);
    if (Num1<num ) and (i<>1) then
     begin
      writeln(Num1);
      inc(K);
     end;
     Num1:=Num;
   end;
  Writeln(K);
end.
</num>

program Series20;

var

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

begin

Write('N:');

Readln(N);

K:=0;

for i:=1 to N do

begin

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

Readln(Num);

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

begin

writeln(Num1);

inc(K);

end;

Num1:=Num;

end;

Writeln(K);

end.

</num>

Ответить

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

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

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

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