одномерные масс.

[blitz]

Даны массивы:
PR1,...,PR9 - наименование предприиятий, T1,...,T9 - темпы роса производительности труда в % за год.
Напечатать список предприятий, у который темпы роста производительности труда за год выше средних по всей группе предприятий

[blitz]

помогите плиз сделать, заранее спасибо

[JinglsOrg]

первый цикл:

write('Введине наименование предприятия: ');
readln(pr[i]); //соответственно типа стринг
write('Введите темпы роса производительности труда в % за год: ');
readln(t[i]); //ну а здесь интеджер
med:=med+t[i]/n; //а тут реалллл

и второй цикл:

if t[i]>med then writeln(pr[i]);