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

Array31. Дан массив размера $$N$$. Найти номера тех элементов массива, которые больше своего левого соседа, и количество таких элементов. Найденные номера выводить в порядке их убывания.

Решение:

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

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

  for i:=N downto 2 do
   if a[i-1]<a[i] then
    begin
     writeln(i);
     inc(num);
    end;
  writeln(num);
end.

program Array31;

var

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

N,i,num:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=N downto 2 do

if a[i-1]<a[i] then

begin

writeln(i);

inc(num);

end;

writeln(num);

end.

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

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

olegst1975

08.03.2016 в 19:30

«Найденные номера выводить в порядке их убывания»

Ответить
Anton

09.03.2016 в 10:01

Поправил.
Было:

for i:=2 to N do

1

for i:=2 to N do

Стало:

for i:=N downto 2 do

1

for i:=N downto 2 do

Ответить

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

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

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

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