Var a:array [1 ... 100,1 ... 100] of real; b:array [1 ... 100,1 ... 100] of real; i, m, n, c:integer; begin readln (n) ; readln (c) ; for i:=1 to n do for m:=1 to c do readln (a[i, m]) ; for i:=1 to n do for m:=1 to c do b[i, m]:=a[i, m]/8;
Ответы (2)