Задача по двумерным массивам (за маленькое вознаграждение)

[stinger-42]

Помогите, пожалуйста!

Сформировать матрицу А(10х10) следующим образом:

1 2 3 4 5 ... 10
11 12 13 14 15 ... 20
... ... ... ... ... ... ...
91 92 93 94 95 ... 100

Задача простая, но тем не менее моих знаний не достаточно

Если поможете, могу немного денег на телефон скинуть за помощь (много не обещаю)

[BDA]

Язык будет указывать Пушкин?

uses
  crt;

var
  a: array[1..10, 1..10] of integer;
  i, j: integer;

begin
  for i := 1 to 10 do
    for j := 1 to 10 do
      a[i, j] := 10 * (i - 1) + j;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
end.

[Devikss]

Хорошая задача))

s=1;
 for(i=0;i<10;i++){
   for(j=0;j<10;j++){
     mas[i][j] = s;
     s++;
   }}

Огласите переменные и масив + сделайте вывод на экран масива.

[stinger-42]

Сообщение от BDA

Язык будет указывать Пушкин?

Прошу прощения я еще не все правила форума знаю.
спасибо большое! можете как-нибудь скинуть номер свой, я отблагодарю.

[Devikss]

Интересное решение:

a[i, j] := 10 * (i - 1) + j;

Работает ли оно?

Допустим индексы i=1 j=3;

a[1,3] = 0+3 = 3;
a[2,3] = 10*1+3=13 <== то есть элемент во втором ряду в третьем столбике будет равен 13, а должен 6.

[Devikss]

Не рабочий код:

uses
  crt;

var
  a: array[1..10, 1..10] of integer;
  i, j: integer;

begin
  for i := 1 to 10 do
    for j := 1 to 10 do
      a[i, j] := 10 * (i - 1) + j;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
end.

Рабочий код:

uses
  crt;

var
  a: array[1..10, 1..10] of integer;
  i, j,s: integer;

begin
s := 1;
  for i := 1 to 10 do
    for j := 1 to 10 do
      begin
      a[i, j] := s;
      s := s + 1;
      end;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
end.

[stinger-42]

Сообщение от Devikss

Работает ли оно?
Допустим индексы i=1 j=3;
a[1,3] = 0+3 = 3;
a[2,3] = 10*1+3=13 <== то есть элемент во втором ряду в третьем столбике будет равен 13, а должен 6.

у меня работает
по условию a[2,3]=13

[BDA]

Devikss, я же проверил
stinger-42, можете постучать в асю, чтобы не светить номер здесь

[Devikss]

ХА) Этот метод работает под матрицу 10 на 10. Не заметил просто. Эта задача решается элементарно просто через счётчик. И нет разницы какого размера будет матрица 10 на 10 6 на 2 или 5 на 8. Если к Вам подойдёт преподаватель и скажет изменить размеры матрицы. Что Вы будете делать?

[Devikss]

Писать нужно не под один вариант а под много.