Question

Помогите пожалуйста



Требуется написать программу (матрицу) в Паскаль по примеру чтобы на выходе было что на фото 2

Answer 1

Ответ:

program nn;

var i,j,n:integer;

a:array[1..10,1..10]of integer;

begin

writeln('введите размер матрицы');

readln(n);

for i:=1 to n do begin

for j:=1 to n do begin

if i=j then a[i,j]:=1;

if j=n-i+1 then a[i,j]:=1;

if i=5 then a[i,j]:=1;

if j=5 then a[i,j]:=1;

end end;

for i:=1 to n do begin

for j:=1 to n do

write(a[i,j]:4);

writeln

end end.

Объяснение: