Решите в программе паскаль
Напишите программу, в которой осуществляется ввод целых чисел (ввод
осуществляется до тех пор, пока не будет введён ноль) и определение
минимального (наименьшего) из введённых чисел.
Напишите программу, в которой осуществляется ввод целых чисел (ввод
осуществляется до тех пор, пока не будет введён ноль) и определение
минимального (наименьшего) из введённых чисел.
More Questions From This User See All
Answers & Comments
Ответ:
var a,min: integer;
begin
write('Введите число: ');
readln(a);
min:=a;
if (a<>0) then
repeat
write('Введите число: ');
readln(a);
if (a<min) and (a<>0) then min:=a;
until a=0;
writeln('Минимальное введенное число: ',min);
end.