Определить два наибольших числа в последовательности и найти их частное.
Не через массивы. Паскаль.

1
ты полностью задание пиши, откуда взялась эта последовательность? что использовать если не массивы?
Комментарий удален
сами заносим

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

Лучший Ответ!
2014-04-01T20:54:23+04:00

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

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    max, prev_max, n: integer;

begin
    max := -10000;
    prev_max := -10000;
    repeat
        read(n);
        if n > max then begin
            prev_max := max;
            max := n;
        end;
    until n = 0;
   
    writeln(max, ' ', prev_max, ' ', prev_max / max);
end.