Консольный режим Delphi. Проверить упорядоченность элементов в массиве.

Cancion2able

Дана последовательность из N натуральных чисел, определяющая рост учеников в сантиметрах. Определить, построились ли ученики по росту. Через while... do, repeat...until.
1 ответ

Cancion2able

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  a: array [0..9] of integer;
  i: integer;
  n: integer;
  s: string;
begin
  randomize;
  for i:=0 to 9 do
  begin
    a[i]:=random(100)+100;
    write(a[i], ' ');
  end;
  n:=0;
  i:=1;
  n:=a[0];
  while (i<=9)and(n<a[i]) do
  begin
    if n<a[i] then
    n:=a[i];
    inc(i);
  end;
  if n<a[i] then
  write('по росту')
  else
  write('не по росту');
  read(s);
end.