Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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    if r[i]<=r[i+1] then break
    else Inc(i);
  if i=n then Writeln(Порядок убывания роста соблюдается)
  else Writeln(Порядок убывания роста не соблюдается)
end.