IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> максимальный отрицательный элемент, не выполняет проверку, что-то не так?
сообщение
Сообщение #1


Гость






при вводе всех положительных чисел, не выполняется программа
Код

program Project;
const
 MaxSize = 100;{ максимальное число элементов в массиве}
var
 A: array [1..MaxSize] of LongInt;{исходный массив}
 NA: Integer;{число элементов в исходном массиве}

 MaxNeg: Integer;{максимальный отрицательный элемент}

 IA:Integer;{индекc текущего элемента массива}
begin
 {Ввод массива}
    writeln('Нахождение максимального отрицательного элем-та массива целых чисел.');
    repeat
    write('Задайте число элементов в массиве (1..', MaxSize,') ');
    readln(NA);
    if (NA <= 0) or (NA > MaxSize) then
    writeln('Вы ошиблись! Повторите!');
 until (NA > 0) and (NA <= MaxSize);
 for IA :=1 to NA do
 begin
    write('Введите числа N',IA,' ');
    readln(A[IA]);
    end;
    {Нахождение максимального отрицательного элемента}
    MaxNeg := -MAXINT;
    for IA := 1 to NA do
 if (A[IA] > MaxNeg) and (A[IA] < 0)
     then MaxNeg := A[IA];
    {Проверка есть ли отрицателдьные элементы и вывод результата }
    if MaxNeg>0
 then writeln('Не найдено ни одного отрицательного элемента')
 else writeln('Максимальный отрицательный элемент = ',MaxNeg)
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






А вот так не пробовал?
{ Проверка есть ли отрицательные элементы и вывод результата }

if MaxNeg = - MaxInt { <--- только не 0 }
then writeln('Не найдено ни одного отрицательного элемента')
else writeln('Максимальный отрицательный элемент = ',MaxNeg)


Чему ты в начале присваиваешь MaxNeg? smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Все класс. СУПЕР. Спасибо!!!!! :thanks:
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Keflex Mixed With Alcohol
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Propecia Catalunya
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Is There Penicillen In Keflex
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Trusted Site For Generic Cialis
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 20:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name