Помощь - Поиск - Пользователи - Календарь
Полная версия: максимальный отрицательный элемент
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
AVP
при вводе всех положительных чисел, не выполняется программа
Код

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.
volvo
А вот так не пробовал?
{ Проверка есть ли отрицательные элементы и вывод результата }

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


Чему ты в начале присваиваешь MaxNeg? smile.gif
Guest
Все класс. СУПЕР. Спасибо!!!!! :thanks:
medicamento priligy estudios cli
Keflex Mixed With Alcohol
where can i buy plaquenil withou
Propecia Catalunya
how to counteract prednisone sid
Is There Penicillen In Keflex
prednisolone injection side effe
Trusted Site For Generic Cialis
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.