Правила форума
Прочтите прежде чем задавать вопрос!
Задача:Cоставить ЛОС. Вывести максимальное значение нечетной компоненты(позиции)
Код
Program Laba;
uses crt;
type
link=^rs;
rs=record
val:word;
lnk:link;
end;
var
a,b:link;
i:word;
Procedure p1(var a:link);
var b:link;
i:integer;
begin
a:=nil;
i:=1;
while i<>-1 do begin
readln(i);
new(b);
b^.val:=i;
b^.lnk:=a;
a:=b;
end;end;
Procedure p2(a:link);
var
i:integer;
n:integer;
begin
i:=0;
n:=0;
while a<>nil do begin
n:=n+1;
if (A^.val>i) and (n mod 2<>0) then i:=A^.val;
A:=A^.lnk;
end;
end;
begin
clrscr;
readln(i);
p1(b);
p2(a);
write(i);
end.
uses crt;
type
link=^rs;
rs=record
val:word;
lnk:link;
end;
var
a,b:link;
i:word;
Procedure p1(var a:link);
var b:link;
i:integer;
begin
a:=nil;
i:=1;
while i<>-1 do begin
readln(i);
new(b);
b^.val:=i;
b^.lnk:=a;
a:=b;
end;end;
Procedure p2(a:link);
var
i:integer;
n:integer;
begin
i:=0;
n:=0;
while a<>nil do begin
n:=n+1;
if (A^.val>i) and (n mod 2<>0) then i:=A^.val;
A:=A^.lnk;
end;
end;
begin
clrscr;
readln(i);
p1(b);
p2(a);
write(i);
end.
Сообщение отредактировано: D1ma -
