что-то вроде бы сделала, но всё равно находятся такие комбинации, для которых условие не исполняется.
На всякий случай, здесь моя "попытка":
uses crt;
var n:integer;
X,Y:array [1..1000] of integer;
t:integer;
procedure vvid;
var i:byte;
Begin
clrscr;
Write ('n= ');
Readln (n);
Writeln ('wwesty x[i]');
for i:=1 to n do
begin
write ('x[',i,'] ');
readln (x[i]);
end;
End;
procedure vidbir;
var i,j:byte;
t:integer;
Begin
t:=0;
for i:=2 to n do
begin
y[i]:=-10000;
Y[1]:=X[1];
if X[i]>X[i-1] then if X[i]>t then
begin
t:=X[i];
Y[i]:=X[i];
end;
end;
End;
procedure vyvid;
var i:byte;
Begin
Writeln ('Zrostayucha poslidownisty z cyh elementiw:');
for i:=1 to n do
begin
if (y[i]<>y[i+1]) and (y[i]<>y[i-1]) then
if y[i]<>-10000 then begin
Write ('X[',i,']= ');
Writeln (Y[i]);
end;
end;
End;
BEGIN
CLRSCR;
vvid;
vidbir;
vyvid;
READLN;
END.
Спасибочки за внимание. :о)
Сообщение отредактировано: volvo -