Заполнить двумерный массив 10х10 следующим образом

@podnebesie · Регистрация: 21.01.2015

Author24 — интернет-сервис помощи студентам

Заполнить двумерный массив 10х10 следующим образом:

1	2	3	...	9	10
11	12	13	...	19	20
...	...	...	...	...	...
111	112	113	...	119	120

@CodeR · 07.02.2015, 12:46

12x10 же.

Pascal

Const n=10;
Var A:array[1..n+2,1..n] of integer;
    i,j:integer;
begin
    For i:=1 to n+2 do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=n*(i-1)+j;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    readln;
end.

Добавлено через 1 минуту

Pascal

Const n=10;
Var A:array[1..n+2,1..n] of integer;
    i,j,k:integer;
begin
    k:=0;
    For i:=1 to n+2 do
    Begin
      For j:=1 to n do
      Begin
        inc(k);
        A[i,j]:=k;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    readln;
end.

@podnebesie · 11.02.2015, 13:23 **[ТС]**

Спасиб✌️

@podnebesie 0 / 0 / 0 Регистрация: 21.01.2015 Сообщений: 42
	11.02.2015, 13:23 [ТС]	3
	Спасиб✌️ 0

Заполнить двумерный массив 10х10 следующим образом

Решение