Question

Имеется список учащихся класса с указанием роста каждого из них. Выяснить, перечислены ли ученики в списке в порядке убывания их роста.

Answer 1

// PascalABC.NET 3.0, сборка 1076
const
  nn=40; { максимально возможное количество учеников }
var
  r:array[1..nn] of byte;
  i,n:byte;
begin
  Write('Количество учеников в классе: '); Read(n);
  Writeln('Вводите через пробел или Enter рост');
  for i:=1 to n do Read(r[i]);
  { собственно анализ введенных данных }
  i:=1;
  while i<n do
    if r[i]<=r[i+1] then break
    else Inc(i);
  if i=n then Writeln('Порядок убывания роста соблюдается')
  else Writeln('Порядок убывания роста не соблюдается')
end.