Определить наименьшее из чисел введённых с клавиатуры количество чисел не известно, а их запрос с клавиатуры прекращается если введено число 0 (pascal)
maksimesaulav46
2
16.05.2019 12:59
0
Другие вопросы по теме Информатика
elenabeloglazo
07.03.2022 07:00
natalijamatijch
07.03.2022 07:07
Murew
07.03.2022 07:37
Danila5535
18.07.2019 15:20
sofiyaserysheva
18.06.2019 10:40
sofa4565787
02.06.2019 16:20
sergnovop08ly5
16.03.2021 15:57
floragormonikddd1
16.03.2021 15:58
nikita71140
16.03.2021 15:59
Популярные вопросы
- Распишите дано и решение. 1) определить сопротивление электропаяльника...
1 - Найдите точку минимума функции у = (l-2х)cos x: + 2 sin х + 3 , принадлежащую...
2 - Сторона ас треугольника авс равна 15. по точке пересечения медиан проведена...
3 - Чем распространяется простое предложение...
2 - Кристалогідрат натрій карбонату містить 62,9% води за масою. визначити...
1 - Почему портрет оказывает разное влияние на двух художников...
2 - Распишите дано и решение. в сеть напряжением 120 в включены последовательно...
3 - 50 ! составьте по 5 интересных вопросов с ответами на 2-5 различных тем...
1 - Роль пейзажа в произведение отцы и дети...
1 - Очем можно построить диалог с другом,чтобы он был смешным и интересным?...
2
program raf105;
var a, min: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
min:= 10000;
readln(a);
while a<>0 do
begin
if a<min
then min:= a;
readln(a);
end;
writeln('Наименьшее: ',min);
end.
Язык PascalABC