Заполнить квадратный двумерный массив таким образом, чтобы по диагонали были расположены 0, под диагональю 1, над диагональю элементы были равны сумме своих индексов. Pascal ABC

Question

Информатика

Левонни

4 августа, 19:18

Заполнить квадратный двумерный массив таким образом, чтобы по диагонали были расположены 0, под диагональю 1, над диагональю элементы были равны сумме своих индексов. Pascal ABC

+1

Ответы (2)

Знаете ответ на вопрос?

Наваль · Answer 1

Const

nmax=100;

var

a:array[1 ... nmax, 1 ... nmax] of byte;

i, j, n:integer;

begin

Write ('Сколько в массиве строк или столбцов? ') ;

Readln (n) ;

for i:=1 to n do

begin

for j:=1 to n do

begin

if i
else if i=j then a[i, j]:=0

else a[i, j]:=1;

Write (a[i, j]:4)

end;

Writeln

end

end.

Русак · Answer 2

Program z;

Type mas=array [1 ... 100,1 ... 100] of integer;

Var i, j, nx:integer;

a:mas;

Begin

read (nx) ;

For i:=1 to nx do

For j:=1 to nx do

Begin

If i>j then

a[i, j]:=1;

If i
a[i, j]:=i+j;

If i=j then

a[i, j]:=0;

end;

For i:=1 to nx do

begin;

For j:=1 to nx do

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

writeln;

end;

End.