55 в общем дан массив а : var a,b,c,d: array[1..10] of integer; i: integer; begin for i: =1 to 10 do - id325342620221230 от zhenianet 30.12.2022 19:21

Question

Информатика: 55 в общем дан массив а : var a,b,c,d: array[1..10] of integer; i: integer; begin for i: =1 to 10 do begin {readln (a[i])}; a[i]: =random(100); end; for i: =1 to 10 do begin write (a[i]: 4); end; и мне надо заполнить массив d элементами массива а но в обратном порядке как это

zhenianet · Accepted Answer

1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.

var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
k:=kp+i-1;
kp:=k;
writeln(k:5, k*k:6, k*k*k:8);
end;
end.

MOGZ ответил