Написать программу которая в последовательности целых чисел определять значение наименьшего числа из всех чисел. Программа получает на вход целые положительные, числа количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода не входит в числовую последовательность). Количество целых чисел не превышает 1000. Все числа не превосходят 30000. Программа должна вывести: наименьшее число из всех чисел.

Question

Яна Нефедова

Информатика

21 ноября, 23:20

Написать программу которая в последовательности целых чисел определять значение наименьшего числа из всех чисел. Программа получает на вход целые положительные, числа количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода не входит в числовую последовательность). Количество целых чисел не превышает 1000. Все числа не превосходят 30000. Программа должна вывести: наименьшее число из всех чисел.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Алиса Уварова · Answer 1

Var i, j, min: integer;

a: array [1 ... 1000] of integer;

begin

//запрос необходимых характеристик

Writeln ('Введите числа (0 - признак окончания ввода) ');

a[1]:=1;

i:=1;

while (a[i]0) do

begin

i:=i+1;

readln (a[i]);

while (a[i]>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]
writeln ('Минимальное введённое число - ', min);

end.