Информатика, опубликовано 2018-08-22 23:43:55 by Гость
Минимум-Максимум. На вход программе подается последовательность целых чисел,заканчивающаяся 0.Видитет минимальное и максимальное значение среди чисел этой последовательности,0 при этом не учитывается.При решении задачи массив использовать нельзя.
Ответ оставил Гость
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:=x;
readln(x);end;
write(max,min);
readln
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на