Помогите решить задачу
Дано: varA:array[1..10,1..10] of integer;
Заполнить массив А следующим образом:
1 2 ...10
11 12...20
21 22...30
................
................
91 92..100
Заранее спасибо...
for j := 1 to 10 do for i := 1 to 10 do A[j, i] := (j-1)*10 + i;
Ну или
k := 1;
for j := 1 to 10 do for i := 1 to 10 do begin
A[j, i] :=k;
inc(k);
end;