Question

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

Answer 1

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.