// 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.
Сначало посетил каталог под номером 3
c:\project\scheme\device
потом посетил каталог под номером 2
c:\install\local
const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
1)....................................................................