Задача. Заполнить одномерный массив так, чтобы каждый его элемент равнялся утроенному квадрату индекса.
. . . . .
var a: array [1..5] of integer;
b: array [1..3,1..5] of integer;
i,j:byte;
. . . . .
{заполнение по формуле одномерного массива}
for i:=1 to 5 do a[i]:=3*sqr(i);
Дома: заполнить двумерный массив 3х6 по следующей формуле: каждый элемент равен разности квадратов индексов строки и столбца.
for i:=1 to 3 do
for j:=1 to 5 do
b[i,j]:=sqr(i)-sqr(j);