Заполнить массив D из 53 элементов следующим образом: а) первые 8 ввести с клавиатуры б)...

Question

Заполнить массив D из 53 элементов следующим образом:
а) первые 8 ввести с клавиатуры
б) следующие 27 случайные числа от [0, 41]
в) остальные по формуле i^3/-4 (в числителе), в знаменателе i+2

Answer 1

Var
    ar: array[1..53] of real;
    i: integer;

begin
    randomize;
    
    for i := 1 to 8 do
        readln(ar[i]);
    for i := 8 + 1 to 8 + 1 + 26 do
        ar[i] := random(41);
    for i := 8 + 1 + 26 + 1 to 53 do
        ar[i] := (i * i * i / -4) / (i + 2);
    
    writeln('Array:');
    for i := 1 to 53 do
        write(ar[i]:4:2, ' ');
end.

Comments

В части б) получается не 27 элементов, а 28.

---

спасибо