Дано число n и массив размером n×n. Заполните его так, чтобы ** главной диагонали стояли...

Question

Дано число n и массив размером n×n. Заполните его так, чтобы на главной диагонали стояли единицы, выше главной диагонали стояли нули, а ниже — двойки

Comments

И я сделаю

---

Выбери какой горизонт будет главным и я сделаб

---

верхний

---

верхний не льзя

---

короче сделаю по центральному

---

спасибо

---

vjoyj

---

мощно

---

Работает ?

---

да

Answer 1

Var 
a:array[1..100,1..100] of longint; 
n,m,i,j:longint;
begin 
readln(n); 
for i:=1 to n do for j:=1 to n do 
begin 
 if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]:=1 else 
if odd(n) and( i=(n div 2)+1)  then a[i,j]:=1 else 
if iif i>n div 2 then a[i,j]:=2; 
end; 
for i:=1 to n do 
begin 
 for j:=1 to n do write(a[i,j]);
  writeln; 
end;
end.