Безотлагательно!!! ПРОШУ Посодействовать!!! ЧАС!!!Заполнить матрицу a :array[1..5,1..7] of integer так, чтобы

Безотлагательно!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!!
Заполнить матрицу a :array[1..5,1..7] of integer так, чтобы на каждой позиции стояла сумма индексов i и j (т.е. a[i, j] = i + j) , вывести ее на экран.


Сделать матрицу a :array[1..M,1..N] of integerзаполнить ее так, чтоб на каждой позиции стояла разность индексов i и j (т.е. a[i, j] = i - j), (СONST M=5 N=9)

Задать свой вопрос
1 ответ
Var
  a:array[1..5,1..7] of integer;
  i,j:integer;
Begin
 for i:= 1 to 5 do
 Begin
   for j:= 1 to 7 do
   Begin
      a[i,j]:=i+j;
      write(a[i,j],' ');
   End;
  Writeln;
  End;
End.

2.
Const
  m = 5;
  n = 9;
Var
  a:array[1..m,1..n] of integer;
  i,j:integer;
Begin 
  for i:= 1 to m do
 Begin
   for j:= 1 to n do
   Begin
      a[i,j]:=i-j;
      write(a[i,j],' ');
   End;
  Writeln;
  End;
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт