[Карина45]

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

[lmikle]

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

Код:

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]

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

Код:

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]

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