ошибка в проге

[ronny137]

решил задачу, но препод сказал что числа -9999 и 9999 неправильные, надо присвоить правильные значения, но не знаю какие, и надо обьяснить почему не 9999 а какие надо

Вычисление суммы максимального и минимального из последовательно вводимых чисел, рассматриваются только чётные числа. Остановить обработку при вводе заказанного количества чисел. Тип обработки-целые.

uses crt;
var kol,min,max,a,n,i:integer;
 
begin
clrscr;
min:=9999;
max:=-9999;
writeln('Input number of numbers');
readln(n);
for i:=1 to n do
 begin
  read(a);
    if a mod 2 = 0 then
     begin
       inc(kol);
       if a<min then min:=a;
         if (a>max) then max:=a;
     end;
 end;
  if kol=0 then write('чётных чисел нет') else
  writeln(max+min);
  readln;
end.

[ACE Valery]

Да присвойте им первое четное число из массива - и все.
Почему не 9999? Наверное, потому что а) они нечетные, б) пользователь может ввести, например, 10000 или -10000, и тогда подсчет максимального и минимального будет уже неправильным.

[ronny137]

в смысле первое четное число?
и минимуму и максимуму одно и тоже число присвоить?
да тут и массива нету
можно кусок программы?=)

[andrewpalkin]

uses crt;
var kol,min,max,a,n,i:integer;
 
begin
clrscr;
writeln('Input number of numbers');
readln(n);
kol:=0;
for i:=1 to n do
 begin
  read(a);
    if a mod 2 = 0 then
     begin
       if (kol = 0) then
       begin
          min:=a;
          max:=a;
       end;
       inc(kol);
       if a<min then min:=a;
         if (a>max) then max:=a;
     end;
 end;
  if kol=0 then write('чётных чисел нет') else
  writeln(max+min);
  readln;
end.

[ronny137]

а можете обьяснить зачем массив? и зачем им присваивать первое четное число из массива?

[ACE Valery]

Да, минимуму и максимуму одно и то же число.
Теперь вижу, что массива нет. Не парьтесь по этому поводу. Невнимательная я
Навскидку: объявляете переменную типа boolean. Пусть будет isFirst.

isFirst:=true;
for i:=1 to n do
 begin
  read(a);
    if a mod 2 = 0 then
     begin
       if isFirst = true then
       begin
          min := a;
          max := a;
          isFirst:= false;
       end
       else
       begin
         if a<min then min:=a;
         if (a>max) then max:=a;
       end;
       inc(kol);
     end;
 end;

C Паскалевским синтаксисом дружу не очень - могут быть ошибки.

P.S. Как обычно опоздала

[andrewpalkin]

Сообщение от ronny137

а можете обьяснить зачем массив? и зачем им присваивать первое четное число из массива?

А где ты нашел массив ? А зачем им присваивать первое введенное четное число , тебе привели пример выше . Когда у тебя было присвоено число 9999 , а если человек вводит 2000 всегда , то ты его его не посчитаешь как максимум .

[ronny137]

это нормальная программа? ее можно сдавать? и почему с минимумами все удалено?

Сообщение от andrewpalkin

uses crt;
var kol,min,max,a,n,i:integer;
 
begin
clrscr;
writeln('Input number of numbers');
readln(n);
kol:=0;
for i:=1 to n do
 begin
  read(a);
    if a mod 2 = 0 then
     begin
       if (kol = 0) then
       begin
          min:=a;
          max:=a;
       end;
       inc(kol);
       if a<min then min:=a;
         if (a>max) then max:=a;
     end;
 end;
  if kol=0 then write('чётных чисел нет') else
  writeln(max+min);
  readln;
end.

тупанул немного. это условие а я с массивом перепутал

[andrewpalkin]

Сообщение от ronny137

это нормальная программа? ее можно сдавать? и почяему с минимумаи все удалено?

Обычно , что бы проверить программу , ее запускают и проверяют ! Ты ее запускал/а ???

Что именно удалено , можно по конкретней ???

[ronny137]

вот это удалено

min:=9999;
max:=-9999

препод сказала, что надо просто другие значение присвоить и все
нет. не запускал.