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

Question

Информатика

Марионила

22 июля, 09:42

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

+2

Ответы (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.