Question

Дна последовательность неотрицательных чисел, последнее из которых

Равно нулю: причем других равных нулю чисел в последовательности нет. Найти последнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.

 

Answer 1

var a, k: real
BEGIN
uses crt; clrscr;
write ('Vvedite 1 chlen posledovatelnosti'); readln (a);
k:=0;
while a > 0 do
begin
if (a > 10) then k := a;
write ('Vvedite ocherednoy chlen posledovatelnosti'); readln (a);
end;
writeln (k);
END.