Заполнить квадратный двумерный массив таким образом, чтоб по диагонали были размещены

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

Задать свой вопрос
2 ответа
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 ilt;j then a[i,j]:=i+j
      else if i=j then a[i,j]:=0
      else a[i,j]:=1;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.
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 igt;j then
a[i,j]:=1;
If ilt;j then
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт