Добрый вечер!
Помогите, пожалуйста, написать программу.
В двухмерном массиве элементы главной диагонали заменить числом k

Решение давать?

uses crt;const n=3;var a:array[1..n,1..n]of integer; i,j,k:integer;beginclrscr; randomize; k:=random(10)+1;for i:=1 to n dobeginfor j:=1 to n dobegina[i,j]:=random(10)+1;write(a[i,j]:4);end;writeln;end;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then begin a[i,j]:=k; end;end;end;for i:=1 to n dobeginfor j:=n downto 1 dobeginif (i+j=4) then begin a[i,j]:=k; end;end;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginwrite(a[i,j]:4);end;writeln;end;

readkey;

end.

Если массив квадратный то можно