проверьте решение

[ronny137]

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

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

var a,s,min,max,n:integer;
 
begin
 min:=high(integer);
 max:=low(integer);
 s:=0;
 n:=0;
 while not seekeoln do
  begin
   read(a);
    if a mod 2 = 0 then
     begin
      inc(n);
       if a<min then min:=a;
         if (a>max) then max:=a;
      s:=max+min;
     end;
  end;
  if n=0 then write('чётных чисел нет') else
 writeln(s);
 readln;
 readln;
end.

[alex_fcsm]

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

Где у вас вводится заданное количество чисел?

[ronny137]

нигде(
у меня с остановкой программы проблемы((
не могу придумать

[alex_fcsm]

Вы слишком сильно все усложнили

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;
s:=max+min;

[ronny137]

куда этот кусок вставить и вместо чего?

[ronny137]

такой конечнгый вариант проги?

var a,s,min,max,n:integer;
 
begin
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;
s:=max+min;
  if n=0 then write('чётных чисел нет') else
 writeln(s);
 readln;
 readln;
end.

[alex_fcsm]

У вас под рукой нет Паскаля?

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.

P.S. А что делать если четный элемент только один?

[ronny137]

не сочтите за наглость, не могли бы вы ее обьяснить?

[alex_fcsm]

Задавайте вопросы

P.S. ЛС писать мне необязательно

[ronny137]

обьясните пожалуйста решение, а то я не понимаю
какая строчка выполняет какую операцию