Форум «Всё о Паскале» _ Задачи _ максимальный отрицательный элемент
Автор: AVP 23.09.2005 0:51
при вводе всех положительных чисел, не выполняется программа
Код
program Project; const MaxSize = 100;{ максимальное число элементов в массиве} var A: array [1..MaxSize] of LongInt;{исходный массив} NA: 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.
Автор: volvo 23.09.2005 1:01
А вот так не пробовал?
{ Проверка есть ли отрицательные элементы и вывод результата }
if MaxNeg = - MaxInt { <--- только не 0 } then writeln('Не найдено ни одного отрицательного элемента') else writeln('Максимальный отрицательный элемент = ',MaxNeg)
Чему ты в начале присваиваешь MaxNeg?
Автор: Guest 23.09.2005 1:07
Все класс. СУПЕР. Спасибо!!!!! :thanks:
Автор: medicamento priligy estudios cli 16.09.2021 22:45
Keflex Mixed With Alcohol
Автор: where can i buy plaquenil withou 25.09.2021 18:30
Propecia Catalunya
Автор: how to counteract prednisone sid 3.10.2021 0:40
Is There Penicillen In Keflex
Автор: prednisolone injection side effe 11.11.2021 17:32