Ввести числа и определить, какое из них наибольшее чётное

[Serge_Bliznykov]

сперва программа просит ввести количество элментов.
Потом, после того, как Вы ввели число,
она ждет ввода N элементов (после ввода каждого элемента нажимайте клавишу Enter (ниже обозначена <Enter> )

например:

Введите количество элементов
4 <Enter>
2<Enter>
21<Enter>
12<Enter>
3<Enter>

Исходный:
2 21 12 3
Наибольшее чётное число массива:12

Перед последним end в программе, поставьте оператор readln
чтобы программа не закрывалась сразу, а ждала нажатия клавиши <Enter> для выхода..

вот так:

  writeln;
  writeln('Наибольшее чётное число массива:', m);
  readln;
end.

[katya111]

почему при вводе пользователем всех нечётных чисел не выдаётся ошибка?
что для этого нужно дописать?

[Serge_Bliznykov]

я Вам больше скажу. в программе есть ошибка!
если первое число НЕЧЁТНОЕ и ОЧЕНЬ БОЛЬШОЕ, тогда программа его ошибочно выдаст, хотя будут чётные.

Ну и если все числа нечётные, то программа выдаст первое число массива, как ответ.

чтобы этого избежать, прийдётся воспользоваться ещё одной переменной.
Например, так:

var
...
   BylChet : boolean;
...
begin
....
  writeln('Исходный:');
  for i:=1 to n do
  begin
    write(A[i]:7);
  end;
  BylChet := false; {устанавливаем переменную-"флажок" что пока не было чётных чисел}
  for i := 1 to n do
  begin
     if (A[i] mod 2 = 0) then {нашли чётное} 
       if  BylChet then {уже были чётные, значит сравниваем с максимумо}
           begin 
              if (A[i]>m) then  m:=A[i] {запомнили найденное }
           end
       else {значит нашли первое чётное в массиве} 
           begin
              m:=A[i]; {запомнили найденное }
              BylChet := true; {поставили признак, что нашлось чётное} 
           end;
  end;
  
  {вывод результатов поиска}
  WriteLn;
  if BylChet then
      writeln('Наибольшее чётное число массива:', m)
  else
      writeln('Нет в массиве чётных значений!');
   
  readln;

[katya111]

Теперь вроде всё правильно работает!
Большущее спасибо!

[BalashovM]

Можно ввести дополнительную переменную, например s, обозначающую кол-во нечётных чисел.

var s:integer;
...

Для цикла ввода чисел прописать:

for i:=1 to 20 do
 begin
  writeln('A[',i,']= ');
  readln(A[i]);
   if A[i] div 2 <> 0 then inc(s); {если число нечётное, увеличиваем значение s на 1}
 end;
if s=20 then writeln('ERROR'); {сообщить об ошибке, если все числа - нечётные}
...
{завершить программу}
...