Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу:...

Question

Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу: B[i]:=ai^2/i+a
Или вот во вложении посмотрите седьмое задание.
Это Паскаль.
Заранее спасибо.

---

Answer 1

 Как я понимаю аi - элемент из массива A,  что такое а -это либо какая -то константа либо формула дожна принять вид 

                                                                     В[i]:=(ai*ai)/(i+ai)                                                          

 

 

 

program MassivB;  

Uses Crt;

type mas= array[1..50] of real;

 

 

 

 var a,b:mas;

        i:integer;

        v:real;  

 

 

procedure Auto;

 var  i:integer; 

 

  begin

        randomize;

        for i:=1 to 50  do  a[i]:=25+random(21);

  end;

 

 

procedure PrintMas(m:mas);

var j:integer;
begin
 for j:=1 to 50 do
         write(mas[j]:5:2);

end;

 

 

 begin

   

 for i:=1 to 50 do

                 begin

                       v:=a[i]

                      b[i]:=  (v*v) /(i+v)

                 end;

 

 

        

 

 clrscr;

 write ('Массив А:');

 printmas(a) 

 

 

 

writeln;

writeln;

 

 

 write ('Массив B:');

 printmas(b) 

 readkey;

 

                     

end. 

Answer 2

 

const
N = 50;

var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;

begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;

end.