Для решения задачи мы объявим массив с целым типом данных. Для каждого дома присвоим случайное количество проживающих человек в количестве от 50 до 200. И в конце сложим значения массива, в котором находится информация о количестве проживающих в определенном доме.
Задача на Паскаль:
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;
Задача на Паскаль:
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