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

Array38. Дан массив размера $$N$$. Найти количество участков, на которых его элементы монотонно убывают.

Решение:

program Array38;

var
  a:array[1..10] of integer;
  N,i,Num:Integer;

begin
  a[1]:=0;
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  Num:=0;

  for i:=3 to N do
  if (a[i-2]>a[i-1]) and not(a[i-1]>a[i]) then inc(Num);

  if a[N-1]>a[N] then inc(Num);


  Writeln(Num);
  readln;
end.

program Array38;

var

a:array[1..10] of integer;

N,i,Num:Integer;

begin

a[1]:=0;

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Num:=0;

for i:=3 to N do

if (a[i-2]>a[i-1]) and not(a[i-1]>a[i]) then inc(Num);

if a[N-1]>a[N] then inc(Num);

Writeln(Num);

readln;

end.

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

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

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

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