Задача на Паскаль:
program z_5;
var i, s: integer;
a: array [1..30] of integer;
BEGIN
s:=0;
for i:=1 to 30 do begin
a[i]:= random(50, 200);
s:=s + a[i];
end;
writeln('В 30-ти домах ', s , ' жителей.');
END
Объяснение: я не уверен, извини если что то не так