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

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

1

Ответы и объяснения

2013-12-19T17:03:33+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.