Помогите!!! решите 3 задачки! 1. Дан массив состоящий из 10 частей,
Помогите!!! решите 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] gt; 5) then
begin
s += a[i];
k += 1;
end;
println(s/k);
end.
3)
begin
var a := ReadArrInteger(11);
println(a.Max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.