Работа с матрицами

[wOOp]

Дана квадратная матрица порядка М. Обнулить элементы матрицы, лежащие одновременно ниже главной диагонали (включая эту диагональ) и выше побочной диагонали (также включая эту диагональ). Условный оператор не использовать.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,i,j,k:byte;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
k:=m mod 2+ord(odd(m));
for j:=1 to m do
for i:=j to m-j+1 do
a[i,j]:=0;
writeln('Обнуление:');
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.

Ошибка:ф-ия ORD с параметрами указанных типов не найдена
подскажите пжл как исправить =)

[weech]

k:=m mod 2+ord(odd(m));

Я сильно в задачу не вникал, но вот здесь вы пытаетесь получить код выражения лог. типа.

[VIK_aka_TOR]

уберите эту строку

k:=m mod 2+ord(odd(m));

у вас без нее все прекрасно работает..

[Serge_Bliznykov]

Сообщение от VIK_aka_TOR

уберите эту строку

k:=m mod 2+ord(odd(m));

у вас без нее все прекрасно работает..

подтверждаю. Так и есть!

И, кстати, переменную k можно/нужно совсем убрать - она же нигде не используется!