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