Паскаль. Задачи на массивы

[pr1mat]

парни!!! помогите пожалуста!!! не хочу пару по информатике!!! как решить задачи:
1) Дан массив из n целых чисел. определить,что больше:сумма чётных или сумма нечётных.
2) Дан массив из n целых чисел. Найти максимальный элемент.
3) Дан массив из n целых чисел. Найти минимальный элемент.
4) Дан массив из n целых чисел. Найти сумму чётных элементов,кратных 3.

ПОЖАЛУЙСТА!!!ОЧЕНЬ НУЖНО!!

[eoln]

1) сумма чётных или сумма нечётных чего? элементов массива или номеров?

...
for i := 1 to n do 
  if mas[i] mod 2 = 0 then CHet := CHet + mas[i]
  else NeCH := NeCH + mas[i];
if CHet > NeCH then write('CHetnoe') else 
  if CHet < NeCH then write('NeCHetnoe') else write('Ravnie');
...

2) и 3) поиск по форуму
4) см 1

[pr1mat]

четных или нечётных элементов! спасибо!!

[veter_s_morya]

Дан массив из n целых чисел. Найти максимальный элемент.

max:=mas[1];
for i:=1 to n do
if mas[i]>max then max:=mas[i];
минимум <

[SERG1980]

№4

var Summa:integer;
Summa:=0;
for i:=1 to n do
  if Odd(Mass[i])=false then
  if Frac(Mass[i]/3)=0 then Summa:=Summa+Mass[i];

[veter_s_morya]

Summa:=0;
for i:=1 to n do
if Odd(Mass[i])=false then
if Frac(Mass[i]/3)=0 then Summa:=Summa+Mass[i];

а другого варианта решения нет? Если есть, то хотелось бы посмотреть!

[puporev]

Если условие понимать так, то:

Summa:=0;
for i:=1 to n do
if Mass[i] mod 6=0 then
Summa:=Summa+Mass[i];

Но по-моему имеется ввиду четный индекс и элемент кратный трем, тогда так:

Summa:=0;
for i:=1 to n do
if (i mod 2=0)and(Mass[i] mod 3=0 then
Summa:=Summa+Mass[i];