Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

769

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

343

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

278

Россия, Санкт-Петербург


ID: 325460

CradleA

Мастер-Эксперт

209

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

158

Беларусь, Гомель


ID: 400815

alexleonsm

6-й класс

130


ID: 400669

epimkin

Профессионал

120


8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-15 03:46:17-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 159530

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Давыдов Артём Аркадьевич
Дата: 03.02.2009, 20:17 Консультация закрыта
Поступило ответов: 2

Уважаемые Эксперты помогите решить задачу, PascalABC: Из заданного списка спортсменов распечатать сведения о тех из них, кто занимается плаванием, указать возраст, сколько лет занимаются спортом и фамилию самого старшего.

Ответ # 242830 от Alex2008pro
Здравствуйте, Давыдов Артём Аркадьевич!

вот решение, только оно немного не до конца.

Приложение:


Alex2008pro

Посетитель
03.02.2009, 22:02
Ответ # 242884 от puporev
Здравствуйте, Давыдов Артём Аркадьевич!
Вот решение с использованием типа записи, более эффективное, лишь один массив.

Приложение:


puporev

Профессор
04.02.2009, 13:23
Мини-форум консультации # 159530

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 111

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 74

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0