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

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

2. Дан массив состоящий из 9 частей отыскать, среднее арифметическое частей массива больше 5.

3. Дан массив состоящий из 11 частей, отыскать самый великой элемент массива.

Задать свой вопрос
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] gt; 5) then

begin

s += a[i];

k += 1;

end;

println(s/k);

end.

3)

begin

var a := ReadArrInteger(11);

println(a.Max);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт