Даны два числа n и m. Сделайте двумерный массив A[n][m], заполните

Даны два числа n и m. Сделайте двумерный массив A[n][m], заполните его таблицей умножения A[i][j]=i*j и выведите на экран. При этом нельзя использовать вложенные циклы, все заполнение массива обязано выполняться одним циклом.
Входные данные
Программка получает на вход два числа n и m количество строк и столбцов, соответственно.

Выходные данные
Программка обязана вывести приобретенный массив. Числа делите одним пробелом.

Примеры
входные данные
3 3
выходные данные
0 0 0
0 1 2
0 2 4

Задать свой вопрос
1 ответ
Var
a:array of array of integer;
n,m,i:integer;
begin
writeln('n, m:');
readln(n,m);
SetLength(a,n);
for i:=0 to n-1 do
  SetLength(a[i],m);
for i:=0 to n*m-1 do
 a[i div m,i mod m]:=(i div m)*(i mod m);
for i:=0 to n*m-1 do
 begin
 write(a[i div m,i mod m]:3);
 if (i+1) mod m = 0 then writeln;
 end;
end.

Пример:
n, m:
4 5
  0  0  0  0  0
  0  1  2  3  4
  0  2  4  6  8
  0  3  6  9 12
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт