Здравствуйте, пользователи этого форума.

Не могли бы вы помочь
Дан массив a[1..3,1..4] надо создать новый массив b[1..3,1..3] не записывая элементы главной диагонали исходного массива и разделить этот полученный массив (построчно) на a[i,i].

Мой пример как я пытался сделать:

for i:=1 to 3 do
for j:=1 to 4 do
if i<>j then b[i,j]:=a[i,j]/a[i,i];

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

Пожалуйста подскажите еще как можно это сделать(если это выполнимо)

  for i:=1 to 3 do begin
    // jd - j_dest; js - j_source;
    jd := 1;
    for js:=1 to 4 do
      if i<>js then begin
        b[i,jd] := a[i,js]/a[i,i];
        inc(jd);
      end;
  end;

Смысл в том, что используется техника, как в этой статье:
Многократное удаление символов из строки

Всё спасибо вопрос решен