Cod sursa(job #58990)
| Utilizator |  Mercik Vladislav Alexandru crazy_kill3r |
Data | 7 mai 2007 21:00:19 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
program calcul;
var x,max:real;
n,i,nr,min:integer;
begin
write('n=');readln(n);
min:=0;
for i:=1 to n do begin
write('x=');readln(x);
if min>x then begin
min:=x;
nr:=1;
else if min:=x then nr:=nr+1;
end;
writeln('min=',min :0:2,'apare de',nr);
end;
readln;
end.
