Решите в программе паскаль
Напишите программу, в которой осуществляется ввод целых чисел (ввод
осуществляется до тех пор, пока не будет введён ноль) и определение
минимального (наименьшего) из введённых чисел.
supernat83:
очень мало баллов
Ответы
Ответ дал:
1
Ответ:
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад