Напишите программу которая находит минимальное число из введенных n чисел

1

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

2013-10-30T17:05:04+00:00
Program fdf;
uses crt;
var a,i:real;
begin
readln(a);
I:=a;
while a<>-9999
do begin
readln(a);
if i<a then i:=a;
end;
writeln(i);
end.


(Для справки -9999 число для окончания цикла)