Agamadred
7 год назад
Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел введенных с клавиатуры.признак конца ввода 0(паскаль)
ОТВЕТЫ
Герасим
Jul 18, 2019
Var min,n:longint;
Begin
readln(n);
min:=n;
while(nlt;gt;0) do
Begin
if nlt;min then min:=n;
readln(N);
end;
writeln(min);
end.
Begin
readln(n);
min:=n;
while(nlt;gt;0) do
Begin
if nlt;min then min:=n;
readln(N);
end;
writeln(min);
end.
265
Смежные вопросы:
