Предмет: Информатика,
автор: EdinoPon
Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел введенных с клавиатуры.признак конца ввода 0(паскаль)
Ответы
Автор ответа:
0
var min,n:longint;
Begin
readln(n);
min:=n;
while(n<>0) do
Begin
if n<min then min:=n;
readln(N);
end;
writeln(min);
end.
Begin
readln(n);
min:=n;
while(n<>0) do
Begin
if n<min then min:=n;
readln(N);
end;
writeln(min);
end.
Интересные вопросы
Предмет: Русский язык,
автор: nurahmet2009
Предмет: Қазақ тiлi,
автор: magjanmadian
Предмет: Геометрия,
автор: artplayl
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: dayanazhapparova