VPF::Записи - Форум программистов

EponeC

Дата 8.6.2009, 22:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.6.2009

Репутация: нет
Всего: нет

. Известны количество очков из 20-ти команд-участниц первенства по фут-болу. Ни одна пара команд не набрала одинаковое количество очков.
А) определить название команды, ставшей чемпионом;
Б) определить название команд, занявших второе и третье места;
В) определить название команд, занявших первое и второе места, не исполь-зуя при этом два оператора цикла (два прохода по массиву).
smile

Ozzя

Дата 9.6.2009, 07:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.7.2004

Репутация: нет
Всего: 1

А)

Код


type
  q=record
    name: string[40];
    ochki:Integer;
var
   a  : array [1..20] of q;
...
  max:=a[1].ochki;
  for i:=2 to 20 do
    if a[i].ochki>max then
       begin
          max:=a[i].ochki;
          First:=i;
       end;
    writeln(a[first].name);

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »