Из 4 вопросов ответили только на один.
Это крепкая двойка.
Завтра с родителями к модератору форума.
(шутка).
Код:
program Array11;
var
Z:real;
i:integer; // счетчик в цикле
X: array [1..50] of real;
begin
for i:=1 to 50 do X[i]:=random(50);
Z:=0;
for i:=1 to 20 do Z:=Z+sqr(X[i])/i;
writeln('Otvet Z=',Z);
end.