ПАСКАЛЬ! ПОМОГИТЕ!
С циклом while (без массива)
1. Известен возраст всех учеников класса. Определить самого старшего, если признак окончания ввода - 0.
2.Дана последовательность целых чисел, признак окончания которой - 0. Найти сумму положительных элементов, стоящих на нечетных местах. (что значит "стоящих на нечетных местах" ???)
Answers & Comments
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.