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

Автор: Kirk

Kirk — Sat, 22 Apr 2017 06:33:45 +0000

В ответ на Anton. Захотелось, чтобы все данные выводились в конце :)

Автор: Anton

Anton — Fri, 21 Apr 2017 07:00:46 +0000

В ответ на Kirk. ой... ну как то сложно :) в моём решении из шапки я просто вместо добавления в массив вывожу их... и в задании указано вывести номера элементов а не сами элементы...

Автор: Kirk

Kirk — Fri, 21 Apr 2017 05:16:26 +0000

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.