Question

Решите задачу: заполните массив размерностью 7 элементов степенью числа 3

Answer 1

Вот код просто заполняющий массив
var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin
d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
end.

Answer 2

А вот код, который еще и выводит массив

Answer 3

var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin
d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
writeln (b);
end.