Question

  Дана
последовательность нену­ле­вых вещественных чисел х, за ко­торой сле­дует 0 (0
– признак конца последо­вательности)... Найти минимум из чисел sin(х).

Answer 1

var a,m:real;
begin
read(a);
m:=sin(a);
while a<>0 do begin if sin(a)<m then m:=sin(a); read(a) end;
write(m);
end.