работа с масивами в Делфи7

[dragodar]

Помогите пожалуйста я проболел а на завтра надо написать прогу в Дельфи 7...описываю требуемую задачу

написать массив и заполнить главную диагональ числами 0 а также заполнить дополнительную диагональ 0 при пересечении диагоналей пишется число -1
Если число строк и колонок непарное то -1 пишется ровно в пересечении
если число строк и колонок парное то -1 пишется как

0_____0
_0____0
__-1-1
__-1 -1
_0_____0
0_______0
(так выглядит задача парного массива)
Заранее спасибо!

[dragodar]

удалось показать пример парного массива ___ это пробелы в ячейках массива... я надеюсь что хоть подскажете как это сделать вроде всё понятно написал

[VIK_aka_TOR]

объясните понятие парный и не парный массив... это четное и нечетное количество строк и столбцов?... и дополнительная диагональ не побочной ли называется?...

[dragodar]

да да просто у меня с русским небольшие проблемы))))

[VIK_aka_TOR]

var
mas : array [1..20,1..20] of integer;
i,j, n : integer;
begin
write(' Введите размерность матрицы ');
readln(n);
// заполение матрицы нулями
for i:=1 to n do
  for j:=1 to n do
    mas[i,j] := 0;


if odd(n) then // если нечетное
  begin
    mas[n div 2 + 1, n div 2 + 1] := -1;
  end
else // если четное
  begin
    for i:= n div 2 to n div 2 + 1 do
      for j:= n div 2 to n div 2 + 1 do
        mas[i,j] := -1;
  end;
// вывод результата
for i:=1 to n do
  begin
    for j:=1 to n do
      write(mas[i,j] :3);
   writeln;
  end;


end.

подгоните под себя если что...

второй вариант... с рандомным заполнением чисел

var
mas : array [1..20,1..20] of integer;
i,j, n : integer;
begin
write(' Введите размерность матрицы ');
readln(n);
randomize;
// заполняем матрицу случайными значениями
for i:=1 to n do
  for j:=1 to n do
    mas[i,j] := random(26) - 25;

// обнуляем диагонали
for i:=1 to n do
  for j:= 1 to n do
      if (i = j) or ( i = n - j + 1) then
         mas[i,j] := 0;

// заполняем пересечение
if odd(n) then // если нечетное
  begin
    mas[n div 2 + 1, n div 2 + 1] := -1;
  end
else
  begin
    for i:= n div 2 to n div 2 + 1 do
      for j:= n div 2 to n div 2 + 1 do
        mas[i,j] := -1;
  end;

for i:=1 to n do
  begin
    for j:=1 to n do
      write(mas[i,j] :3);
   writeln;
  end;


end.

[Stilet]

И от меня тоже идея:

const n=8;
var i,j:integer;
begin
 for i:=1 to n do begin
  for j:=1 to n do begin
    if
     (
       not odd(n)
       and   ((i>=(n div 2)) and (i<=(n-(n div 2)+1)))
       and((j>=(n div 2)) and (j<=(n-(n div 2)+1)))
     ) or (
      odd(n) and (i=(n div 2+1)) and (j=(n div 2+1))
     )
    then write(-1:3)
    else    write(0:3);
  end; writeln;
 end;
 readln;
end.

[dragodar]

у меня выводится ошибка raised exception class einouterror with message 'i/o error 105' что эт такое???