Переведите на питон
var z:array[1..50] of real;
i:integer;l:real;
begin
l:=0;
for i:=1 to 50 do
begin
readln(z[i]);
l:=l+z[i]*z[i];
end;
l:=sqrt(l);
writeln(l);
readln;
end.

mansursatuev    2   25.04.2020 23:08    0