Предмет: Информатика,
автор: pesatnyekoroli
Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. В конце работы программы на экран выводится минимальное и максимальное из введенных чисел (не считая 0).
Входные данные
На вход программы подаются целые числа, по одному в строке. Ввод завершается числом 0.
Выходные данные
Программа должна вывести минимальное и максимальное из введенных чисел (не считая 0) в одной строке через пробел.
pesatnyekoroli:
На языке Паскаль
Ответы
Автор ответа:
0
javascript:var м=[],ч;while(true){ч=prompt();if(ч==0)break;else м.push(prompt());}alert(Math.min.apply(null,м)+" "+Math.max.apply(null,м));
Автор ответа:
1
program p1;
uses crt;
var max,min,a:integer;
begin
read(a);
max:=a;
min:=a;
while a<>0 do begin
read(a);
If (max< a) and (a<>0) then begin
max:=a;
end;
If (min>a) and (a<>0) then
min:=a;
end;
write(max,' ', min);
end.
uses crt;
var max,min,a:integer;
begin
read(a);
max:=a;
min:=a;
while a<>0 do begin
read(a);
If (max< a) and (a<>0) then begin
max:=a;
end;
If (min>a) and (a<>0) then
min:=a;
end;
write(max,' ', min);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: semenkapolinka25
Предмет: Биология,
автор: dimashberik2011
Предмет: История,
автор: marisasavina
Предмет: Музыка,
автор: cfzujvcx
Предмет: Математика,
автор: хххх7