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