Помогите!!! решите 3 задачи! 1. Дан массив состоящий из 10 элементов, найти произведение...

Question

Помогите!!! решите 3 задачи! 1. Дан массив состоящий из 10 элементов, найти произведение элементов кратных 3. 2. Дан массив состоящий из 9 элементов найти, среднее арифметическое элементов массива больше 5. 3. Дан массив состоящий из 11 элементов, найти самый большой элемент массива.

Answer 1

1)

begin

var a := ReadArrInteger(10);

var p := 1;

for var i := 0 to 9 do

if (a[i] mod 3 = 0) then

p *= a[i];

println(p);

end.

2)

begin

var a := ReadArrInteger(9);

var s := 0;

var k := 0;

for var i := 0 to a.Length-1 do

if (a[i] > 5) then

begin

s += a[i];

k += 1;

end;

println(s/k);

end.

3)

begin

var a := ReadArrInteger(11);

println(a.Max);

end.