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

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

Решение:

program Array30;
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;

  num:=0;
  for i:=1 to N-1 do
   if a[i]>a[i+1] then 
    begin
    writeln(i);
    inc(num);
   end;
  writeln(num);
end.

program Array30;

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;

num:=0;

for i:=1 to N-1 do

if a[i]>a[i+1] then

begin

writeln(i);

inc(num);

end;

writeln(num);

end.

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

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

Program a30;

Var
 a: array [1..10] of real;
 b: array [1..10] of integer;
 n,i,k: integer;
 
Begin
 Write('N=');
 Readln(n);
 For i:=1 to n do
 Begin
  Write(i,': ');
  Readln(a[i]);
 End;
 Writeln();
 For i:=2 to n do
 Begin
  If (a[i-1]>a[i]) then 
  Begin
   b[i-1]:=i-1;
   inc(k);
  End;
 End;
For i:=1 to n do
 If (b[i]>0) then Write(b[i],' ');
Writeln();
Writeln('Количество элементов: ',k);
End.

Program a30;

Var

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

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

n,i,k: integer;

Begin

Write('N=');

Readln(n);

For i:=1 to n do

Begin

Write(i,': ');

Readln(a[i]);

End;

Writeln();

For i:=2 to n do

Begin

If (a[i-1]>a[i]) then

Begin

b[i-1]:=i-1;

inc(k);

End;

For i:=1 to n do

If (b[i]>0) then Write(b[i],' ');

Writeln();

Writeln('Количество элементов: ',k);

End.

Ответить

Anton

21.04.2017 в 11:00

ой… ну как то сложно 🙂 в моём решении из шапки я просто вместо добавления в массив вывожу их… и в задании указано вывести номера элементов а не сами элементы…

Ответить
- Kirk
  
  22.04.2017 в 10:33
  
  Захотелось, чтобы все данные выводились в конце 🙂
  
  Ответить

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

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

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

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