Question

ДАЮ 25 БАЛЛОВ!!!!! КТО ПРАВИЛЬНО ответит поставлю ЛУЧШИЙ ОТВЕТ!!!!!!!
Дано число n, n < или = 100 . Создайте массив n×n и заполните его по следующему правилу:
- числа на диагонали, идущей из правого верхнего в левый нижний угол, равны 1;
- числа, стоящие выше этой диагонали, равны 0;
- числа, стоящие ниже этой диагонали, равны 2.

Входные данные
Программа получает на вход число n.

Выходные данные
Необходимо вывести полученный массив. Числа разделяйте одним пробелом.
полный скрин задачи в фотке

Answer 1

Ответ:

program shet;

uses crt;

var n, i, j: integer;

mas : array [1..100, 1..100] of integer;

begin

writeln('Enter n');

readln(n);

if (n > 100) then writeln('wrong number');

for i:=1 to n do

for j:=1 to n do

begin

if (n = i+j - 1) then mas[i, j]:=1

else if(j>n-i+1) then mas[i, j]:=2

else mas[i, j]:=0;

end;

for i:=1 to n do

begin

for j:=1 to n do

begin

write(mas[i,j], ' ' );

end;

writeln();

end

end.