Помогите решить задачи на паскаль.

1)

Дан массив случайных чисел (количество элементов

вводите с клавиатуры). Найти произведение всех элементов массива.

2)

Дан массив случайных чисел (количество элементов

вводите с клавиатуры). Найти сумму четных элементов массива.

3)

Дан массив случайных чисел (количество элементов

вводите с клавиатуры). Найти максимальный элемент массива.

4)

Дан массив случайных чисел (количество элементов

вводите с клавиатуры). Найти максимальный элемент массива среди элементов,

кратных 3.

1) var a: array[0 ... 100] of integer; i, s, n: integer;

begin

writeln ('Введите количество элементов в массиве: ') ; readln (n) ;

for i : = 1 to n do begin

a[i] : = random (10) ;

write (a[i], ' ') ;

s : = s * a[i];

end;

writeln;

writeln (s) ;

end.

2) var a: array[0 ... 100] of integer; i, s, n: integer;

begin

writeln ('Введите количество элементов в массиве: ') ; readln (n) ;

for i : = 1 to n do begin

a[i] : = random (10) ;

write (a[i], ' ') ;

end;

for i : = 1 to n do begin

/ / if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.

/ / if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.

end;

writeln;

writeln (s) ;

end.

3) var a: array[0 ... 100] of integer; i, s, n, max: integer;

begin

writeln ('Введите количество элементов в массиве: ') ; readln (n) ;

for i : = 1 to n do begin

a[i] : = random (10) ;

write (a[i], ' ') ;

end;

s:=0;

for i : = 1 to n do begin

if (a[i]>s) then s:=a[i];

end;

writeln;

writeln (s) ;

end.

4) var a: array[0 ... 100] of integer; i, s, n, max: integer;

begin

writeln ('Введите количество элементов в массиве: ') ; readln (n) ;

for i : = 1 to n do begin

a[i] : = random (10) ;

write (a[i], ' ') ;

end;

s:=0;

for i : = 1 to n do begin

if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];

end;

writeln;

writeln (s) ;

end.