Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task4;
- var
- x: array[1..10] of integer;
- sum1, sum2, i: integer;
- y: real;
- begin
- writeln('Введите 10 цифр: ');
- for i:= 0 to 9 do
- readln(x[i]);
- sum1:= 0;
- for i:= 0 to 9 do
- sum1:= sum1 + x[i];
- sum2:= 0;
- for i:= 0 to 9 do
- sum2:= sum2 + x[i] - 2;
- for i:= 0 to 9 do
- y:= x[i]/sum1 - x[1]/sum2;
- writeln('y = ', y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement