Так?
Код:
uses crt;
const
N = 10;
avg = 25.5;
region:array[1..N] of String = ('reg1', 'reg2', 'reg3', 'reg4', 'reg5',
'reg6', 'reg7', 'reg8', 'reg9', 'reg10');
var
count:array[1..N] of Integer;
i:Integer;
begin
clrscr; randomize;
writeln('srednee znachenie: ', avg:2:1);
writeln('==========================');
for i:= 1 to N do begin
count[i]:= Random(50);
end;
for i:= 1 to N do begin
write('region: ', region[i], ', kolichestvo: ', count[i]);
writeln;
end;
writeln;
writeln('po usloviu: ');
for i:= 1 to N do begin
if (count[i] > avg) then
writeln(region[i]);
end;
readln;
end.