|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2009, 17:56 | #1 |
Пользователь
Регистрация: 24.05.2009
Сообщений: 24
|
нужна помощ задача почти готова
темы лабы:Дан массив Х(178). Вычислить разность между максимальным и минимальным по модулю элементами этого массива.
проблема програмы в том что из всех выпавших элементов не выберается макс и мин по модули элемент uses crt; const n=10; var a:array[1..n]of real; min,max,rezult:real; i: integer; begin clrscr; randomize; writeln('ishodniy massiv'); i:=1; repeat a[i]:=random(178)+random; if random >0.5 then a[i]:=-a[i]; writeln(a[i]:3:3,' '); inc(i); until(i>n); for i:=1 to n do min:=abs(a[1]); max:=abs(a[i]); вот в этом месте проблема if abs(a[i])<min then if abs(a[i])>max then max:=abs(a[i]); writeln('makcemalniy po modyly element ',max); writeln('minimaliniy po modyly element ',min); rezult:=max-min; writeln('pazniza mezdy makcimalnym i minimalnym pavna',rezult); end. |
24.05.2009, 18:08 | #2 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 94
|
Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Библиотека, студенческая. 2 таблицы - Книги и Читатели - БД, да еще с SQL запросами delphi | Shady | Помощь студентам | 1 | 22.05.2009 09:56 |
Задача на FOR, почти решена... просто проверить. | Andrux | Помощь студентам | 5 | 29.12.2008 11:27 |
Нужна помощ профессианала.. | fox93 | Общие вопросы по Java, Java SE, Kotlin | 1 | 17.10.2008 13:49 |
Нужна помощ на Delphi | ВЕКО | Помощь студентам | 1 | 19.04.2008 14:13 |