да я хочу понять всё и научиться!я не ищу халявы, просто хочу во всем разобраться))
вот не знаю, что не так
выше главной:
program LabWork6;
const nmax=10; {максимальное число строк и столбцов}
type
Telem=real; {Тип элементов матрицы}
Tindex=1..nmax; {Тип индексов матрицы}
TArr=array[Tindex,Tindex] of Telem; {тип-матрица элементов типаTelem}
{размером nmax*nmax}
var
x:TArr {исходная матрица}
n,
k:Telem;
i,j:Tindex;
begin
for i:=1 to n do
if x[i,i]<>0 then inc(k)
then
k := k+1;
end.
не пойму в разделе описания(((что и как