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

Не через массивы. Паскаль.

Question

Информатика

Лонгин

29 августа, 08:05

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

Не через массивы. Паскаль.

+1

Ответы (1)

Знаете ответ?

Август · 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.

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

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

Не через массивы. Паскаль.