SaveText.Ru

Без имени
  1. uses crt;
  2. var i, j, n, max, c: integer;
  3. p, V: array [1..100] of integer;
  4. begin
  5. clrscr;
  6. n:=15;
  7. max:=0;
  8. c:=0;
  9. writeln ('Фирма':9,'Доход, руб.':19,'Налог, %':14,'Доход гос-ва, руб.':22);
  10. for i:=1 to n do
  11. begin
  12. p[i]:=random (101) ;
  13. V[i]:= 20+random (135);
  14. if V[i]*p[i] > max then
  15. begin
  16. max:= V[i]*p[i];
  17. c:=i;
  18. end;
  19. if i < 10 then writeln ('Фирма №0',i, V[i]:10, p[i]:18, V[i]*p[i]/100:18:2)
  20. else writeln ('Фирма №',i, V[i]:10, p[i]:18, V[i]*p[i]/100:18:2 );
  21. end;
  22. writeln;
  23. writeln (' наибольший налог платит фирма #', c);
  24. end.

Share with your friends:

Print