Запишите на языке паскаль программу решения задачи. Считайте количество жильцов дома случайным числом из диапазона от 50 до 200 человек, а число домов n=30.

Для выполнения данного действия необходимо сформировать массив и просуммировать его.

Var

i:integer;

begin

randomize;

writeln ('Количество жильцов:');

for i:=1 to 30 do

writeln ('Дом ', i,' - ', random (151) + 50);

end.

Или по-другому:

s:=0;

for i:=1 to 30 do begin

a[i]:=randon (151) + 50;

s:=s+a[i] end;

writeln ('s = ', s);