Олимпийские игры - Определить страну-победителя - Turbo Pascal
Формулировка задачи:
Опишите заданный тип, осуществите ввод данных, произведите определенные операции и выведите на печать значение полей (где возможно). Во всех случаях используйте массив из записей.
Данные о неофициальном командном зачете на Олимпийских играх: страна, количество участников, количество золотых, серебряных и бронзовых медалей. Определить страну-победительницу, считая, что за первое место дается три очка, за второе - два и за третье - одно.
Решение задачи: «Олимпийские игры - Определить страну-победителя»
textual
Листинг программы
type member = record {тип member является записью} country : string[50]; {поле записи, где хранится название страны} quantity : word; {количество участников} gold : byte; {количество золота} silver : byte; {количество серебра} bronze : byte; {количество бронзы} end; {конец описания типа запись}