var a:array [1..100] of Integer;
i,s:Integer;
begin
write ('Массив ');
for i:=1 to 100 do
a[i]:=random(81)+20;
write (a[i]:3);
if (i>=20) and (i<=60) then s:=s+a[i]
end;
writeln;
write ('Сумма ',s)
end.
var a:array [1..100] of Integer;
i,s:Integer;
begin
write ('Массив ');
for i:=1 to 100 do
begin
a[i]:=random(81)+20;
write (a[i]:3);
if (i>=20) and (i<=60) then s:=s+a[i]
end;
writeln;
write ('Сумма ',s)
end.