к примеру
1 2 4
1 3 0
3 4 1
сумма 5 9 5
for j:=1 to v do //
for i:=1 to v do begin
k:=k+strtofloat(form2.StringGrid10.cells[j,i]);
end;
form2.StringGrid23.Cells[j,i]:=floattostr(k);
спасибо всем заранее
не за что)))
переделай из произведения в сумму
program massiv; //произведение столбцов
uses crt;
var
j,i:integer;
a:array[1..10,1..10] of integer;
b:array[1..10] of longint;
BEGIN
randomize;
clrscr;
writeln('решение задачи на массивы ');
writeln('---------------------------');
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a [ i, j ]:=random(10)+1; write(a [ i, j ]:3);
end;
writeln; end;
for j:=1 to 10 do begin
b [ j ]:=1;
for i:=1 to 10 do
b [ j ]:=b [ j ]*a [ i, j ];
write(b [ j ],' '); end;
writeln;
writeln('конец задачи ');
readkey;
END.
⇢