Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2009, 17:56   #1
33artem
Пользователь
 
Регистрация: 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.
33artem вне форума Ответить с цитированием
Старый 24.05.2009, 18:08   #2
anGeee
Пользователь
 
Аватар для anGeee
 
Регистрация: 18.11.2008
Сообщений: 94
По умолчанию

Код:
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]);
меняем на :
Код:
min:=abs(a[1]);
max:=abs(a[1]);
for i:=2 to n do
 if abs(a[i])<min then
  min:=abs(a[i])
 else
  if abs(a[i])>max then
   max:=abs(a[i]);
anGeee вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Библиотека, студенческая. 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