Тема
:
Pascal. Прошу помощи.
Показать сообщение отдельно
23.01.2005, 21:04
#
7
XPEH_BAM
Инженер
Сообщений: 1,353
Регистрация: 17.09.2004
Возраст: 43
Записей в дневнике:
11
Не в сети
BOBA
Это было написано за 15 секунд, так что не жалуйся. Там подпись есть насчёт мелочей всяких. Я же не курсяк на заказ делаю. Так исправляйте сами.
---
if (a[i]<0) and (abs(a[i])>max) then max:=a[i];
---
Так сойдёт?
Меню пользователя XPEH_BAM
Посмотреть профиль
Профиль портала
Фотоальбом
Посетить домашнюю страницу XPEH_BAM
Найти ещё сообщения от XPEH_BAM
Читать дневник