задача по массивам.

[elis_kefir]

Задан целочисленный массив a из n элементов. Найти значение максимального элемента среди четных (по значению) элементов, расположенных до первого нечетного элемента.

program var 8;
var a: array [1...100} of integer;
p1: boolean;
p2: boolean;
i,n: integer;
begin
writeln ('vvedite razmernost massiva');
readln (n);
writeln ('vvedite',n,'elementov massiva');
for i:=1 to n do
readln (a[i]);
p1:=false;
for i:=1 to n do
if (a[i] mod 2 = 0) then
p1:=true;
p2:=false;
for i:=1 to n do
if (a[i] mod 2 = 1) then
p2:=true;

А как дальше не знаю. Может и в этих строчках надо что-то исправить или добавить. Вообщем помогите пожалуйста)


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

[Leo08]

Массив здесь - не самая лучшая идея, можно считывать до первого отрицательного элемента, но всё же...

Испраил у вас ошибки:
1) Имя программы содержит пробелы;
2) Размерность массива указана ТРОЕТОЧИЕМ, а не двоеточием
3) Закрывается размерность КРУГЛОЙ скобкой

program Project2;
var a: array [1..100] of integer;
p2: boolean;
i,j,max,n: integer;
ne,de:boolean;
begin
writeln ('vvedite razmernost massiva');
readln(n);
writeln ('vvedite ',n,' elementov massiva');
max:=-1;
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
if (a[i] mod 2 = 1) then
begin
ne:=true;
break;
end;
if ne=true then
begin
for j:=1 to i do
if (a[j] mod 2 = 0) then
begin
max:=a[j];
de:=true;
break;
end;
if de=true then
begin
for j:=1 to i do
if (a[j] mod 2=0) then
if a[j]>max then
max:=a[j];
WriteLn('Max = ',max);
end
else
WriteLn('Net 4etnogo 4isla');
end
else
WriteLn('Net ne4etnogo 4isla');
ReadLn(a[i]);
end.

[elis_kefir]

огромное спасибо)

[elis_kefir]

да и ещё, вы не могли бы мне объяснить что означает "break;" а то я совсем новичок

[Poma][a]

наводи "курсор" на Break и жмете Ctrl + F1 и в справке читаете. А так прерывает цикл.