Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const A:array[1..15] of integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
- const B:array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
- var Y:array[1..15] of real;
- var i,j,ai_squared,sumB, m: integer;
- begin
- for i:=1 to 15 do begin
- sumB:=0;
- ai_squared:=A[i]*A[i];
- for j:=1 to 10 do
- sumB:=sumB+B[j];
- Y[i]:=ai_squared/sumB;
- end;
- for m:=1 to 15 do
- write(Y[m], ' ');
- writeln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement