Написать программку которая в последовательности целых чисел определять значение меньшего числа
Написать программу которая в последовательности целых чисел определять значение меньшего числа из всех чисел.Программка получает на вход целые положительные, числа количество введённых чисел неведомо, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода не входит в числовую последовательность). Количество целых чисел не превосходит 1000. Все числа не превосходят 30000 . Программа обязана вывести: меньшее число из всех чисел.
Задать свой вопрос
Var i,j,min: integer;
a: array [1..1000] of integer;
begin
//запрос нужных черт
Writeln(Введите числа (0 - признак окончания ввода));
a[1]:=1;
i:=1;
while (a[i]lt;gt;0) do
begin
i:=i+1;
readln(a[i]);
while (a[i]gt;30000) do
begin
Write(Введите числo меньше 30000. ); readln(a[i]);
end;
end;
i:=i-1;
//нахождение минимального числа
min:=30001;
for j:=2 to i do
if a[j]lt;min then min:=a[j];
writeln (Малое введённое число - , min);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.