массив записей

@Помогите,люди · Регистрация: 19.05.2010

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

В конкурсе «Мисс Очаровашка» участвуют 100 девушек. Известен суммарный балл, набранный каждой девушкой в ходе конкурса. Определить победительницу конкурса, т.е. девушку, набравшую наибольшее количество баллов.

@Jazon_deenAlt · 19.05.2010, 17:32

Помогите,люди, ну так что ж тут неясно ня? матрица, туды значения, потом нашли максимальный вот и есть счастье ня.

@andrei63 · 19.05.2010, 17:48

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
type anketa=record
   fio: string[45];
   ball:integer;
end;
var student: array [1..100] of anketa;
   I,k,max: integer;
   a:array[1..100]of integer;
begin
   for I:=1 to 5 do
   begin
      writeln ('введите фамилию');
      readln (student[I].fio);
      writeln ('введите бал');
      readln (student[I].ball);
      end;
 
      for i:=1 to 5 do
      a[i]:=student[i].ball;
max:= A[1]; K:=1;
for i := 2 to 5 do
If max<A[i] then begin K := i; max := A[i] end;
for i:=1 to 5 do
if student[I].ball=max then write(student[I].fio);
 
readln;
end.

через записи сделал

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Помогите,люди 0 / 0 / 0 Регистрация: 19.05.2010 Сообщений: 4

	массив записей 19.05.2010, 17:26. Показов 1689. Ответов 2 Метки нет (Все метки) В конкурсе «Мисс Очаровашка» участвуют 100 девушек. Известен суммарный балл, набранный каждой девушкой в ходе конкурса. Определить победительницу конкурса, т.е. девушку, набравшую наибольшее количество баллов. 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	19.05.2010, 17:32
	Помогите,люди, ну так что ж тут неясно ня? матрица, туды значения, потом нашли максимальный вот и есть счастье ня. 0

массив записей

Решение