Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Помогите! решите 3 задачи!

1. Дан массив состоящий из 10 элементов, найти произведение элементов кратных 3.

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

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

Ответов к вопросу: 1
  • ratatatatatatatauf
    12.07.2024 | 19:18

    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.