Question

Сделать программу на паскале, даю 100 баллов, пожалуйста

Answer 1

По условию матрица квадратная.

Матрица заполняется следующим образом:

Выше побочной диагонали - все единицы, ниже побочной диагонали - все нули, на побочной диагонали - все семерки.

программа на паскале:

Program n1;

const n=5;

var a: array[1..n,1..n] of integer;

i,j: integer;

begin

for i:=1 to n do begin

for j:=1 to n do begin

if(i+j<n+1) then a[i,j]:=1;

if(i+j>n+1) then a[i,j]:=0;

end;

a[i,n-i+1]:=7;

end;

for i:=1 to n do begin for j:=1 to n do write(a[i,j],' ');

writeln;

end;

end.