Advertisement
Guest User

Untitled

a guest
May 26th, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. var
  2. lmass: array [1..8] of integer;
  3. dmass: array [1..10] of integer;
  4. H:array [1..8] of integer;
  5. SummOfd : integer;
  6. i: integer;
  7. min: integer;
  8.  
  9. begin
  10. SummOfd := 0;
  11. for i:=1 to 10 do
  12. begin
  13. if (i<=8)then
  14. begin
  15. lmass[i] := random(10) - 5;
  16. end;
  17. dmass[i] := random(10) - 5;
  18. end;
  19. for i:=5 to 10 do
  20. begin
  21. SummOfd := SummOfd + dmass[i];
  22. end;
  23. write('Изначальный ряд: ');
  24. for i:=1 to 8 do
  25. begin
  26. H[i] := lmass[i] * SummOfd;
  27. write(H[i]);
  28. write(' ');
  29. end;
  30. min := H[1];
  31. for i:=1 to 8 do
  32. begin
  33. if (min > H[i]) then
  34. min := H[i];
  35. end;
  36. writeln();
  37. write('H(min) = ');
  38. write(min);
  39. for i:=1 to 8 do
  40. begin
  41. if (H[i] = min) then
  42. H[i] := dmass[1];
  43. end;
  44. writeln();
  45. write('Изменённый ряд: ');
  46. for i:=1 to 8 do
  47. begin
  48. write(H[i]);
  49. write(' ');
  50. end;
  51. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement