Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

 Как я понимаю а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.