Question

Написать в PascalABC программу заполнения массива тремя способами: с клавиатуры, случайными числами, по формуле.
помогите пж, срочно надо 25 баллов

Answer 1

var a: array [1..10] of real;

i: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i, ' элемент массива: ');

       readln(a[i]);

   end;

   writeln('С клавиатуры: ', a);

   

   for i := 1 to 10 do

   begin

       a[i] := random(-5,5);

   end;

   writeln('Случайными числами: ', a);

   

   for i := 1 to 10 do

   begin

       a[i] := i + sin(i);

   end;

   writeln('По формуле: ', a);

end.