Блок схема для «Двумерные массивы. Вложенные циклы»

[MariKa-91]

Помогите пожалуйста блок-схему составить=)))

В матрице с размерности (44) вычислить сумму произведений элементов каждой строки.

program matrica;
var
m:array[1..4,1..4] of integer;
i,j:integer;
stmp:real;s:real;
begin
s:=0;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=round(random30));
writeln(m[i,j]);
end;
end;
for i:=1 to 4 do
begin
stmp:=m[i,j];
for j:=2 to 4 do
begin
stmp:=m[i,j]*stmp;
end;
s:=s+stmp;
end;
writeln('s=',s);
readln;
end.

[ROMA2PVT]

невижу смысла составлять блок схему к неверно считающей программе.

[MariKa-91]

блин...я в этой теме значит не очень....(((
а помочь не можете тогда программку составить?

[ROMA2PVT]

тебе уже DoDge_VipeR сказал что нужно сделать.
Вот так должно быть:

program matrica;
var
m:array[1..4,1..4] of integer;
i,j:integer;
stmp:real;s:real;
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=random(10)-2;
write(m[i,j]:2,' ');
end;
writeln;
end;
s:=0;
for i:=1 to 4 do
begin
stmp:=m[i,1];
stmp:=1;
for j:=1 to 4 do
begin
stmp:=m[i,j]*stmp;
end;
s:=s+stmp;
end;
writeln('s=',s);
readln;
end.

[MariKa-91]

ой, ссори, я не заметила....спасибо большое)))
а с блок-схемой помочь не сможете?

[ROMA2PVT]

Конечно поможем.Вставь после начала блок описания переменных и готово.

[MariKa-91]

Спасибо огромное!!!!!! =)

[ROMA2PVT]

Не за что.

[MariKa-91]

ROMA2PVT, извини, а ты не мог бы еще вот эту задачку пасмареть???

она вот тут, на 2-ой странице)
http://www.programmersforum.ru/showthread.php?t=99682