[CyberDaemon]

Максимальное значение определяет безошибочно. »

А если ввести
-1 -2 -3 -4 -5?
Ошибка тут:

Код:

max:=0; min:=0;

С чего бы вдруг максимуму и минимуму быть равным нулю?

[Hector]

lenaustkz84, ошибка в изначальном присвоении min:=0. у тебя выходит 0 всегда меньше положительного числа, т. е. условие a<min при положительном а никогда не выполнится.

и для решения этой задачи лучше использовать массивы

[CyberDaemon]

и для решения этой задачи лучше использовать массивы »

Почему?

[lenaustkz84]

Убрала из кода

max:=0; min:=0 »

все равно программа работает так же не верно.

А если ввести -1 -2 -3 -4 -5? »

CyberDaemon, после того, как убарала из кода
max:=0; min:=0;
ввела числа -1 -2 -3 -4 -5.

Тогда получается так:
max=0
min=-5

[CyberDaemon]

Все верно, простым убиранием обнуления преременных задачу не решить.
Думай, думай!
1) -1 -2 -3 -4
2) 1 2 3 4
3) 1 1 2 2

спойлер-подсказка

3) 1 1 1 1
4) -1 -1 -1 -1

если уж совсем туго, то

максимуму и минимуму сначала нужно присвоить значение первого введенного числа.
А потом уже сравнивать все последующие числа.

[Hector]

CyberDaemon, imho удобней

[lenaustkz84]

CyberDaemon, ну вот я так и сделала уже.
Добавила еще две переменных.
Но мне код не совсем нравиться.
Хотелось как-то в одной ячейке записывать и значения сравнивать с max и min.
Не хотелось еще задействовать две штуки дополнительно.
Хотя может и нормальный код...
Я еще мало в этом разбираюсь

Код:

{Программа для определения максимального  и минимального  значения
из N введенных чисел} 
program max_i_min_iz_N;

uses crt;

var N,min,max,a,b,c,i,m:integer;

BEGIN
      clrscr;
        repeat
           write('Введите любую цифру: '); readln(N); writeln();
           write('Введите ',N,' чисел(-а) через пробел: ');
                 read(a,b);

                 if (a>b) then
                    begin max:=a; min:=b; end
                else begin max:=b; min:=a; end;

              i:=3;

              repeat
                 read(c);

                    if(c>max) then max:=c else max:=max;
                    if(c<min) then min:=c else min:=min;

                    i:=i+1; c:=0;

              until(i>N);

           writeln();
           writeln('max=',max);
           writeln('min=',min);
           writeln();
      
      writeln('Для продолжения программы нажмите цифру 1');
      writeln('Для завершения программы нажмите цифру 2');
      writeln();
      readln(m);
      writeln();

        until(m=2);
END.

Новый код работает без ошибок.
С вводом любых значений, и положительных, и отрицательных.

[CyberDaemon]

Hector, это если с введенными числами ещё что-то надо делать, то да. А если задача просто найти максиминимум - тогда самое простое - это обрабатывать введённое число сразу после ввода и больше его не хранить. А то вдруг с размерностью массива не угадаешь

lenaustkz84, маньячно
И как отработает прога, если в ответ на
"write('Введите любую цифру: '); readln(N); writeln();"
ввести "1"?

[lenaustkz84]

Ммм... ёлки-палки... только обрадовалась...
Если ввести 1, то... приходиться ввоить 3 значения, из которых программа без ошибки выбирает min и max.
То есть работает не с одним значением, как это нужно, а с тремя.
Это, наверное, потому что я задала i:=3;
Или нет. Наверное, потому что у меня изначально должно сравниваться 3 переменных, иначе программа не работает.

Кстати, для двойки такая же проблема.
Наверное, я сейчас добавлю отдельные операторы именно для значения 1 и 2.
Только, даже если будет работать, вообще муть какая-то получиться, наверное...