Помогите пожалуйста: написать программу, которая заполняет массив числами, которые в 5...

Question

Помогите пожалуйста: написать программу, которая заполняет массив числами, которые в 5 раз больше чем предыдущее число

Comments

Заполнение мы всегда начинаем с 1? Или начальное число вводится с клавиатуры.

---

с 1

---

Na paskale?

Answer 1

const n=5;
var a:array [1..n] of integer;
i: integer;
begin
writeln ('Введите a[1]');
read (a[1]);
for i:=2 to n do  a[i]:=a[i-1]*5;
 for i:=1 to n do write(a[i],' ')
end.

Если ввести a[1]=1, то программа выводит: 1 5 25 125 625