[Карина45]

Несколько школьников выстроились в шеренгу. Для каждого школьника известен день (число) его рождения. Требуется:
Определить, является ли последовательность, образован¬ная заданными числами упорядоченной по убыванию;

[lmikle]

ну и в чем проблема?
Только определись - как считать/сравнивать день рождения - с учетом месяца или нет.
Вот простейшая функция для случая, когда месяц НЕ учитывается:

Код:

1 2 3 4 5 6 7 8 9 10

function IsSequenceDec(A : Array Of Integer) : Boolean; var begin   Result := True;   For I := Low(A)+1 To High(A) Do     Begin       Result := A[i] < A[I-1];       If Not Result Then Break;     End; end;

[Карина45]

есть код на паскале,который нужно переделать в делфи

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var n,i,a,b,k:integer; begin repeat write('Количество школьников n>1 n='); readln(n); until n>1; writeln('Введите рост школьников'); readln(a); k:=0; for i:=2 to n do  begin   readln(b);   if b>a then k:=1;   a:=b;  end; if k=0 then write('Рост упорядочен по убыванию') else write('Рост не упорядочен по убыванию') end.

Админ: Пользуемся тегами при оформлении кода!

[lmikle]

Ну, во первых, у тебя день рождения, а не рост (не принципиально).
Во вротых, а тебе консолька нужна?
В третьих, а точно массив не нужен?