Обчислювальна техніка і програмування

x1,F:ovmat;

x, i, j, Im, Jm:integer;

d, q, l: dvm r

a, b, c, y, x, S: real;

w: dvm t;

T: txt;

POV: St50;

Procedure MOM(d, g: dvm r; n, m: integer; var l: dvm r);

Var

I, q, k: integer;

Begin

for i:=1 to n do

for k:=1 to m do

begin

S:=0

for j:=1 to m do

S:=S+[i, j]*q [i, a];

L [i, k]:= S;

write(,‘l[i, k]’,);

end;Begin

{знаходимо індекс y та x елементу};

Im := 1 ; Jm := 1;

For i:=1 to n do

For j:=1 to m do

if them;