Довести до ума

@GooD_DeviL · Регистрация: 10.05.2010

Author24 — интернет-сервис помощи студентам

В общем, изначально надо было посчитать такую загогулину:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{i:=1}^{n}\sum_{k:=1}^{m}{\left({b}_{ik}+{c}_{ki} \right)}^{2}+\sum_{j:=1}^{15}\sin ({{x}_{j}}^{3})$

У меня получилось вот это, но почему то выводить всегда 0:

Pascal

uses crt;
var
i,k,j,n,m:integer;
S,S1,S2:real;
x:array[1..15] of integer;
b:array[1..100,1..100] of integer;
c:array[1..100,1..100] of integer;
begin
clrscr;
write('n:='); readln(n);
write('m:='); readln(m);
S1:=0;
for i:=1 to n do
for k:=1 to m do
begin
S1:=S1+(sqr(b[i,k]+c[k,i]));
writeln('S1=', S1:3:3);
end;
writeln;
S2:=0;
for j:=1 to 15 do
begin
S2:=S2+sin(x[j]*x[j]*x[j]);
write('S2=', S2:3:3);
end;
writeln;
S:=S1+S2;
writeln('S=', S:3:3);
readkey;
end.

@Ant13Z · 20.12.2010, 00:08

полагаю потому что все элемента массива пустые, т.е. равны 0
у тебя есть куча элементов массивов с пустыми значениями

@GooD_DeviL · 20.12.2010, 00:08 **[ТС]**

А как их задать? Через random?

@Ant13Z · 20.12.2010, 00:15

Сообщение от GooD_DeviL

А как их задать? Через random?

я не силен в матане ='(

@Ant13Z 8 / 7 / 6 Регистрация: 28.09.2010 Сообщений: 64
	20.12.2010, 00:08	2
	полагаю потому что все элемента массива пустые, т.е. равны 0 у тебя есть куча элементов массивов с пустыми значениями 1

@GooD_DeviL 0 / 0 / 1 Регистрация: 10.05.2010 Сообщений: 86
	20.12.2010, 00:08 [ТС]	3
	А как их задать? Через random? 0

@Ant13Z 8 / 7 / 6 Регистрация: 28.09.2010 Сообщений: 64
	20.12.2010, 00:15	4
	Сообщение от GooD_DeviL А как их задать? Через random? я не силен в матане ='( 0