Требуется заполнить массив a[1: 6, 1: 6] из целых чисел по правилу a(k, n) = k^n - n^k. изобразите схему алгоритма, позволяющего заполнить массив нужным образом.

var a:array [1..6,1..6] of integer;

k,n,s,st:integer;

begin

for k:=1 to 6 do

begin

for n:=1 to 6 do

begin

st:=1;

for s:=1 to n do st:=st*k;

a[k,n]:=st;

write(a[k,n]:7);

end;

writeln

end

end.

Подробнее - на -