над диагональю элементы были равны сумме своих индексов. Pascal ABC
Ответ или решение
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 ia[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.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!