Помощь - Поиск - Пользователи - Календарь
Полная версия: Решение массивов
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
hasan
Известно количество совершенных преступленний в каждом из 5 городов в текущем и предыдущем городах.Определить город(города), в котором количество преступлений увеличилось в максимальное число раз и какое.Название городов известны.
Помогите решить пожалуйста)))))
Unconnected
Цитата
Известно количество совершенных преступленний в каждом из 5 городов в текущем и предыдущем городах.


Немного непонятно. Это дословный текст задачи?
Гость
Цитата(Unconnected @ 16.12.2009 21:24) *

Немного непонятно. Это дословный текст задачи?

да дословный
volvo
Цитата
Известно количество совершенных преступленний в каждом из 5 городов в текущем и предыдущем городах
Выделенное не лишнее? Может, ГОДАХ все-же?
Гость
Цитата(volvo @ 16.12.2009 22:45) *

Выделенное не лишнее? Может, ГОДАХ все-же?

да в годах yes2.gif ,при наборе ошибся.
Lapp
Попробуй примерно так:

m:=1;
for i:=2 to n do if Crimes09[i]/Crimes08[i]>Crimes09[m]/Crimes08[m] then m:=i;
WriteLn('Maximum crime rate increase of ',Crimes09[m]/Crimes08[m]: 5:2,' times, has been observed in ',Town[m],'.');
Гость
Цитата(Lapp @ 17.12.2009 1:17) *

Попробуй примерно так:

m:=1;
for i:=2 to n do if Crimes09[i]/Crimes08[i]>Crimes09[m]/Crimes08[m] then m:=i;
WriteLn('Maximum crime rate increase of ',Crimes09[m]/Crimes08[m]: 5:2,' times, has been observed in ',Town[m],'.');


большое спасибо smile.gif
Гость
Цитата(Lapp @ 17.12.2009 1:17) *

Попробуй примерно так:

m:=1;
for i:=2 to n do if Crimes09[i]/Crimes08[i]>Crimes09[m]/Crimes08[m] then m:=i;
WriteLn('Maximum crime rate increase of ',Crimes09[m]/Crimes08[m]: 5:2,' times, has been observed in ',Town[m],'.');



а какие типы данных тут присутствуют? m,n,i:integer, a "Crimes" ?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.