Question

PascalABC Помогите, пожалуйста !!!

Answer 1

//Pascal
//Массив заполняется случайными числами от 1 до 10
var
  A: array [1..10] of byte;
  i: byte;
  Sum: real;
begin
  randomize;
  for i := 1 to 10 do
  begin
    A[i] := random(9)+1;
    write(A[i]:3);
    Sum := Sum + A[i] + 2;
  end;
  writeln;
  for i := 1 to 10 do writeln(Sum/sqrt(abs(A[i])):0:2);
  writeln;
end.