Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

readkey;

Answer 5

end.