Минимум-Максимум.

На вход программе подается последовательность целых чисел, заканчивающаяся 0. Видитет минимальное и максимальное значение среди чисел этой последовательности, 0 при этом не учитывается. При решении задачи массив использовать нельзя.

Question

Информатика

Пантелеймон

25 июля, 22:13

Минимум-Максимум.

На вход программе подается последовательность целых чисел, заканчивающаяся 0. Видитет минимальное и максимальное значение среди чисел этой последовательности, 0 при этом не учитывается. При решении задачи массив использовать нельзя.

+4

Ответы (1)

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

Мануил · Answer 1

Var max, min, x:real;

begin

max:=-32001;

min:=32001;

readln (x) ;

while x0 do begin

if x > max then

max:=x;

if x < min then

min:=x;

readln (x) ; end;

write (max, min) ;

readln

end.