Паскаль! !
с циклом while (без массива)
1. известен возраст всех учеников класса. определить самого старшего, если признак окончания ввода - 0.
2.дана последовательность целых чисел, признак окончания которой - 0. найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах"
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.