Решите 3 ! 1. дан массив состоящий из 10 элементов, найти произведение элементов кратных 3. 2. дан массив состоящий из 9 элементов найти, среднее арифметическое элементов массива больше 5. 3. дан массив состоящий из 11 элементов, найти самый большой элемент массива.
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.