Автор - BlackSea1
1)var a,b:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>b then b :=a;
end;
write('возраст самого старшего ',b);
end.
2)
var a,b,c:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
c:=c+1;
if (a>0)and(c mod 2=1) then b :=a;
end;
write('сумма положительных элементов , стоящих на нечетных местах равна ',b);
end.