Задание по Pascal

@Acehil · Регистрация: 04.04.2011

Студворк — интернет-сервис помощи студентам

Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое животное вы связываете с Японией и японцами?». Составить программу получения наиболее часто встречающихся ответов.

@Small Lamer · 05.04.2011, 01:53

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
type m1=record
  kol:byte;
  st:string;
end;
var a:array[1..1000] of m1;
    n,i,j,k,max,maxj:longint;
    s:string;
    f:boolean;
begin
write('vvedite koli4estvo 4elivek - ');
readln(n);
max:=0;
for i:=1 to n do
begin
write('vvedite zhevotnoe kotoroe nazval ',i,' chelovek-');readln(s);
f:=true;
for j:=1 to k do if a[j].st=s then begin a[j].kol:=a[j].kol+1;
                                        if a[j].kol>max then
                                        begin
                                        max:=a[j].kol;
                                        maxj:=j;
                                        end;
                                        f:=false;
                                        break;end;
if f then begin k:=k+1;a[k].st:=s;a[k].kol:=1;end;
end;
write('zhevotnoe nabravwee maximalnoe 4isli golosov - ',a[maxj].st);
readln;
END.

так соидет?

@Acehil · 05.04.2011, 04:57 **[ТС]**

Спасибо большое

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Acehil 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 5

	Задание по Pascal 04.04.2011, 15:52. Показов 1390. Ответов 2 Метки нет (Все метки) Японская радиокомпания провела опрос N радиослушателей по вопросу: «Какое животное вы связываете с Японией и японцами?». Составить программу получения наиболее часто встречающихся ответов. 0

@Acehil 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 5
	05.04.2011, 04:57 [ТС]
	Спасибо большое 0

Задание по Pascal

Решение