Заполнить массив А по следующему принципу в паскале

Question

1 7 13 19 25 31 
2 8 14 20 26 32 
3 9 15 21 27 33 
4 10 16 22 28 34 
5 11 17 23 29 35 
6 12 18 24 30 36

Андрей Раев · Accepted Answer

Самый примитивный вариант 
var a: array[1..6,1..6] of byte; 
i,j: byte; 
begin 
for i:=1 to 6 do a[i,1]:=i; 
for i:=1 to 6 do 
for j:=2 to 6 do 
a[i,j]:=a[i,j-1]+6; 
for i:=1 to 6 do begin 
for j:=1 to 6 do 
Write(a[i,j],' ':3); 
Writeln; 
end; 
end.

Ольга Быканова · Answer

Это не в программирование а в образование, потому что ваши задачки имеют столько же отношения к программированию, как книжка-разукраска к художественному искусству.

Раиса Козочка · Answer

var a:array[1..6,1..6] of integer; 
i,j,r:integer; 
begin 
for i:=1 to 6 do begin 
for j:=1 to 6 do begin 
r:=r+1; 
a[i,j]:=r; 
writeln('a[',i,' ',j,']= ',a[i,j]); 
end; 
end; 
end. 
Вот на мой взгяд самый примитивный вариант (самый легкий и короткий)