Задания по курсовой

[Jone200991]

1)Определить максимальное значение среди нечётных по значению элементов всего массива.
2)Упорядочить каждые третьи элементы второй трети массива по убыванию модулей обратных значений.
Паскаль!

[Jone200991]

Что не ужели никто не знает?!

[Alex11223]

Решу за небольшое вознаграждение на вебмани или ЯД. Или покажите ваши наработки.

[Jone200991]

Вот к 1-ому заданию, но вроде как есть ошибка:
Program xxxx;
N=1000;
Max_value=100+1;
Var
M:array[1..N] of integer; I,max:integer;
Begin
Randomize;
For i:=1 to N do
M[i]:=random(Max_value);
Max:=m[i];
If m[i]=not 2 then if m[i]> max then max x:=m[i];
End;
Writeln(‘Макс=’, max);
Readln
End.

[Alex11223]

const вначале (перед объявлением N и max_value) забыли.
И

If m[i] mod 2 <> 0 then if m[i]> max then max:=m[i];

и после этого не нужен end; т.к нет begin. upd: ой, точнее цикл(for) перед if нужен. Впрочем в end все равно нет необходимости.