Question

ПАСКАЛЬ! ПОМОГИТЕ!
С циклом while (без массива)
1. Известен возраст всех учеников класса. Определить самого старшего, если признак окончания ввода - 0.

2.Дана последовательность целых чисел, признак окончания которой - 0. Найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах" ???)

Answer 1

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.