Имеется список учащихся класса с указанием роста каждого из них. Выяснить, перечислены ли ученики в списке в порядке убывания их роста.
Имеется список учащихся класса с указанием роста каждого из них. Выяснить, перечислены ли ученики в списке в порядке убывания их роста.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы