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

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

Question

Информатика

Вена

4 июля, 12:06

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

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

+5

Ответы (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.

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

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

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