Спасите меня с задачей! Срочно!!!

[Anton_XXX]

Помогите решить задачу срочно, очень срочно! Вот: задам массив, состоящий из n - элементов. Определить, есть ли среди последних 5 элементов хотя бы один четный.

[Хыиуду]

for i:=length(n)-5 to length(n)
if not odd(mas) then result:=true;

[Anton_XXX]

А полностью можно...

[Anton_XXX]

Пожалуйста, помогите мне... Напишите от begin end...

[Anton_XXX]

Помогите...

[Хыиуду]

Код: Выделить всё

uses crt;
var mas:array[1..10] of byte;
i:byte;
res:boolean;
begin
 { здесь каким-то образом задаются элементы массива. Допустим, случайными числами от 0 до 9}
  randomize;
  for i:=1 to length(mas) do mas[i]:=random(10);
  {задали}
  res:=false;
  for i:=length(mas)-5 to length(mas)
  if not odd(mas[i]) then res:=true;
  if res then writeln('есть четные') else writeln('нет четных')
end.

[Колядин Максим]

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

Код: Выделить всё

uses crt;
var mas:array[1..10] of byte;
i:integer;
begin
  for i:=1 to length(mas) do begin
     write('Введите элемент массива №',i,' - ');
       readln(mas[i]);
          end;
  for i:=length(mas)-5 to length(mas)
  if not odd(mas[i]) then begin
        writeln('Есть чётные числа'); 
          readkey;
              exit;
                end;
  writeln('Нет четных...')
  readkey;
end.