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

2014-04-01T19:21:20+04:00
Var n:array[1..10] of string;
k,s,p:array[1..10] of real;
i,j,m:integer;
begin
for i:=1 to 10 do begin
readln(n[i]);
readln(k[i]);
readln(s[i]);
p[i]:=k[i]/s[i];
end;
m:=1;
for i:=1 to 10 do begin
  for j:=1 to 10 do
  if p[m]<p[j] then m:=j;
p[m]:=-1;
write(n[m],' ');
end;
end.