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

[katya111]

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

program pr1;
var
  n, m, i: integer;
  A: array[1..20] of integer;
begin
  writeln('Введите количество элементов');
  readln(n);
  for i := 1 to n do
  begin
    A[i] := RANDOM(101) - 50;
    write(A[i]: 4);
    if A[i] mod 2 = 0 then m := m + 1
  end;
  writeln('Исходный:');
  for i := 1 to n do
  begin
    write(A[i]: 7);
  end;
  m := A[1];
  for i := 1 to n do
  begin
    if (A[i] > m) and (A[i] mod 2 = 0) then m := A[i];
  end;
  writeln;
  writeln('Наибольшее чётное число массива:', m);
end.

___________
1.Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2.Название темы должно адекватно отражать суть решаемой задачи/проблемы.

Не забывайте об этом!


Модератор.

[Alex11223]

A[i] := RANDOM(101) - 50;

Это заменить на ввод значения A[i] с помощью оператора readln()

[Serge_Bliznykov]

1) если нужны случайные числа, то в начале программы нужно обязательно ставить вызов процедуры
Randomize;
иначе последовательность случайных чисел будет одна и та же при каждом запуске.
Вам это не нужно, т.к. Вы числа собираетесь вводить вручную...

2) нет проверки N ( что N<=20 )

3) строчку
if A[i] mod 2 = 0 then m := m + 1
выкиньте совсем! Она не нужна!

4) по сути вопроса:
замените строчку A[i] := RANDOM(101) - 50;
на строчку Readln(A[i]) и всё!

begin
  writeln('Введите количество элементов');
  repeat
    readln(n);
    if N>20 then WriteLn('Ошибка! N должно быть от 1 до 20!');
  until (N>0) and (N<=20);
  for i := 1 to n do
    ReadLn(A[i]);

  writeln('Исходный:');
....

[katya111]

что-то у меня не получается...
вообще задание: ПРОГРАММА НАХОДИТ НАИБОЛЬШЕЕ ЧЁТНОЕ ЧИСЛО В ДАННОМ ОДНОМЕРНОМ МАССИВЕ ЦЕЛЫХ ЧИСЕЛ. (числа, из к-рых будет выбираться наибольшее чётное, должны вводится вручную)

[katya111]

помогите, пожалуйста!!!
очень срочно нужно!

[Serge_Bliznykov]

что-то у меня не получается...

что именно не получается?!

в тот код, который Вы привели изначально (я понимаю, что это чужая программа, иначе у Вас бы таких вопросов не возникало), вставьте мой код (заменив соответствующие строчки исходного кода.
остальное (там, где у меня многоточие - оставляете Ваш код.. и всё!

[katya111]

я так и сделала, но у меня при выводе ничего не считается. идёт просто ВВОД ДАННЫХ..

program pr1;
var
n,m,i:integer;
A:array[1..20] of integer;
begin
writeln('Введите количество элементов');
repeat
readln(n);
if N>20 then writeln('Ошибка! N должно быть от 1 до 20!');
until (N>0) and (N<=20);
for i:=1 to n do
ReadLn(A[i]);
writeln('Исходный:');
for i:=1 to n do
begin
write(A[i]:7);
end;
begin
if (A[i]>m) and (A[i] mod 2 = 0) then m:=A[i];
end;
writeln;
writeln('Наибольшее чётное число массива:', m);
end.

А кто будет код оформлять как положено?!?!?!?
Надеюсь, что это Вы делаете по непониманию, а не сознательно нарушаете правила!


ПОВТОРЯЮ!

Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

в исходном коде есть такие строчки:

  m := A[1];
  for i := 1 to n do
  begin
    if (A[i] > m) and (A[i] mod 2 = 0) then m := A[i];
  end;
  writeln;
  writeln('Наибольшее чётное число массива:', m);

сравните со своим "творчеством" и попытайтесь найти отличия!!!

[katya111]

Теперь у меня вывод:"Введите кол-во элементов"
а куда нужно вводить сами элементы?

[katya111]

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