Pascal.

Дано некоторое количество различных чисел. Найти самое маленькое.

1

Ответы и объяснения

2013-02-15T21:10:07+04:00

И где оно дано?

Пускай оно вводится с клавиатуры, это количество

 

program ab;

 

var num,min:integer;

 

begin

 

num:=0;

min:=-32767;

 

repeat

    Read(num);

    if num<min then min:=num;

until num<>0;

Writeln("Minimal:   ",min);  

end.