Помогите решить в ПаскалеИз элементов массива D сформировать массив A той же размерности...

Question

Помогите решить в Паскале
Из элементов массива D сформировать массив A той же размерности по правилу: первые 10 элементов находятся по формуле Ai = Di+i, остальные по формуле Ai = Di-i.

Answer 1

Const
    n = 30;

var
    i: integer;
    a, d: array[1..n]of integer;

begin
    for i := 1 to n do
    begin
        d[i] := random(100);
        if i <= 10 then<br>            a[i] := d[i] + i
        else
            a[i] := d[i] - i;
        write(d[i]:4, ' ');
    end;
   
    writeln();
    for i := 1 to n do
        write(a[i]:4, ' ');
end.

Comments

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)

---

спасибо