ДАЮ 25 БАЛЛОВ!!!!! КТО ПРАВИЛЬНО ответит поставлю ЛУЧШИЙ ОТВЕТ!!!!!!! Дано число n, n <...

Question

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

Comments

да, работает

---

проверил(а), робит?

---

если что это двумерные массивы

---

да

---

паскаль?

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.

Comments

спасибо