Программа на языке паскаль

[Colville]

В массиве из 10 элементов найти числа, меньшие чем максимальное из четных.

[Mandrivnyk]

И в чем проблема?

[Colville]

я новичок в паскаль. запутался как решать.

[Alex11223]

Дык вы покажите ваш код, расскажите, что не получается и т.д.
Если кто-то просто решит за вас вряд ли это вам поможет стать "не новичком".

[Xeonc]

Если самостоятельно не решите, напишите в Icq, решу вам задачу и объясню принцип решения

[anydevelop]

Задание со еще в силе?

[Colville]

Да еще в силе.
Xeonc,прошу ответить в асе.

[Aranea tela telam]

По идеи можно так

Program pr15;
const
m = 20;
var
arr: array[1..m] of byte;
max_num, max_index: byte;
i: byte;
begin
randomize;
for i := 1 to m do begin
begin
arr[i] := random(100);
writeln(arr[i]-1);
end;
end;
max_index := 1;
max_num := arr[1];
for i := 2 to m do
if arr[i] > max_num then
begin
max_index := i;
max_num := arr[i];
end;
if max_num mod 2=0 then
writeln ('Max = ',max_num)
else
begin
max_num:=max_num-1;
writeln ('Max = ',max_num);
end;
end.

[anydevelop]

я вам написал программу, могу скинуть исходник и объяснить не ясные вам моменты, обращайтесь anydevelop@yandex.ru.