Предмет: Информатика,
автор: Andrejka8900
Решите в программе паскаль
Напишите программу, в которой осуществляется ввод целых чисел (ввод
осуществляется до тех пор, пока не будет введён ноль) и определение
минимального (наименьшего) из введённых чисел.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Русский язык,
автор: arev197931
Предмет: Другие предметы,
автор: svetlanavip
Предмет: Русский язык,
автор: NIKAKET
Предмет: Биология,
автор: saida51
Предмет: Алгебра,
автор: Илюша22811