Размещено 4 года назад по предмету
Информатика
от evteeoleg
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; for i:=1 to n do for m:=1 to c do writeln(b[i,m]); end. можете написать обозначение каждого символа