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

Question

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

Comments

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

---

сами заносим

Answer 1

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.