Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.02.2014, 20:59   #1
SsAn
Пользователь
 
Регистрация: 23.12.2013
Сообщений: 25
По умолчанию Найти город, с которым в сентябре говорили чаще всего.

Найти город, с которым в сентябре говорили чаще всего.
SsAn вне форума Ответить с цитированием
Старый 03.02.2014, 23:25   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

а чего там искать. это город Москва, однозначно!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.02.2014, 00:16   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ниче подобного:
Код:
const gorod:array[1..1] of string=('Киев');
var j,i,m:integer; g:array[1..1] of integer;
begin
 for i:=1 to 31 do begin
  j:=random(1); if j=0 then j:=1;
  inc(g[j]);
 end;
 j:=1;
 for i:=1 to 1 do begin
  if g[i]>g[j] then j:=i;
 end;
 write('Самый громкий город это: ',gorod[j]); readln;
end.
Вот так вот
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.02.2014, 00:31   #4
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

write('Самый громкий город это: ',gorod[j]); readln;
Цэ - Хрещатiк, в простнаречьi - майдан. Хи-хи. Рэволюцiя!
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 04.02.2014, 00:49   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Хрешатик это улица
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно найти в задаче всего 2 ошибки!!!! Катя21 Помощь студентам 5 26.12.2011 21:01
найти символ, который встречается чаще других Zhasik Паскаль, Turbo Pascal, PascalABC.NET 1 27.12.2010 08:49
Поиск элемента который чаще всего встречается Gerzs Microsoft Office Excel 6 08.11.2010 21:59
Улучшить алгоритм нахождения элемента, чаще всего повторяющегося в возрастающем массиве nitrolighter Помощь студентам 6 18.10.2009 13:33