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
Объяснение:
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
Объяснение: