Задание:
Заполните массив двадцатью первыми членами геометрической прогрессии с известным первым членом прогрессии a и ее знаменателемz
Решение:
var a, z: real; X: array[1… 20] of real; i: integer; begin readln (a, z); X[1]: =a; for i: =2 to 20 do X[i]: =X[i-1]*z; for i: =1 to 20 do writeln (X[i]) end.
Знаете другой ответ?