Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- lmass: array [1..8] of integer;
- dmass: array [1..10] of integer;
- H:array [1..8] of integer;
- SummOfd : integer;
- i: integer;
- min: integer;
- begin
- SummOfd := 0;
- for i:=1 to 10 do
- begin
- if (i<=8)then
- begin
- lmass[i] := random(10) - 5;
- end;
- dmass[i] := random(10) - 5;
- end;
- for i:=5 to 10 do
- begin
- SummOfd := SummOfd + dmass[i];
- end;
- write('Изначальный ряд: ');
- for i:=1 to 8 do
- begin
- H[i] := lmass[i] * SummOfd;
- write(H[i]);
- write(' ');
- end;
- min := H[1];
- for i:=1 to 8 do
- begin
- if (min > H[i]) then
- min := H[i];
- end;
- writeln();
- write('H(min) = ');
- write(min);
- for i:=1 to 8 do
- begin
- if (H[i] = min) then
- H[i] := dmass[1];
- end;
- writeln();
- write('Изменённый ряд: ');
- for i:=1 to 8 do
- begin
- write(H[i]);
- write(' ');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement