|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.04.2011, 21:51 | #1 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 13
|
одномерные массивы
Ребят, помогите решить пож. задачу, я новичок, никак разобраться не могу.Помогите плз, заранее спасибо)
Задача: Даны массивы: PR1,...,PR9 - наименование предприиятий, T1,...,T9 - темпы роса производительности труда в % за год. Напечатать список предприятий, у который темпы роста производительности труда за год выше средних по всей группе предприятий. я вот как написал, но она не работает: var pr:array[1..100] of string; t:array[1..100] of real; i,n:integer; begin read(n); for i:=1 to n do begin write('Введине наименование предприятия: '); readln(pr[i]); write('Введите темпы роса производительности труда в % за год: '); readln(t[i]); end; med:=0; for i:=1 to n do begin med:=med+t[i]; end; med:=med/n; for i:=1 to n do if t[i]>med then writeln(pr[i]); end. |
07.04.2011, 11:03 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
А что не работает-то? Вроде всё правильно. Только med надо объявить:
Код:
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
07.04.2011, 21:17 | #3 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 13
|
я его объявил.
ошибку выдает в этом месте: med:=0; |
07.04.2011, 22:11 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
13.04.2011, 23:46 | #5 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 13
|
я знаю как объявлять.не глупый
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерные массивы в СИ. | just_dake | Помощь студентам | 4 | 25.04.2011 20:28 |
Массивы(одномерные) | lilia2121 | Помощь студентам | 5 | 18.04.2010 10:47 |
одномерные массивы. | lilia2121 | Помощь студентам | 6 | 15.04.2010 20:22 |
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент | LyaLya | Помощь студентам | 15 | 20.12.2009 14:12 |