Заполните массив A(25) по формуле A(i)=5*I-i/3

Question

Заполните массив A(25) по формуле A(i)=5*I-i/3

Answer 1

Var
a:array[1..25] of real;
i:integer;
begin
for i:=1 to 25 do
5*i-i/3;
for i:=1 to 25 do
write(a[i]:5:2);
end.