• Вопрос по информатике:

    сгенерировать массив m из 10 элементов.Каждый элемент-случайное число от 0 до 20. Сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой
    а)найти сумму всех элементов
    б)вывести на экран номера элементов,значения которых четны
    в)найти произведение этих элементов
    г)найти сумму a[1]*a[2]*+a[2]*a[3]+a[3]*a[4]+...a[9]*a[10];

    • Автор:

      blue

  • Ответ:

    var a: array[1..10] of integer;

    i:integer;

    begin

    randomize;

    for i:=1 to 10 do

    begin

    a[i]:=random(21);

    If a[i] mod 2=0 then writeln(i);{задание б}

    end;

    P:=1;

    S:=0;

    X:=0;

    for i:=1 to 9 do

    begin

    S:=s+a[i];

    P:=p*a[i];

    X:=x+a[i]*a[i+1];

    end;

    P:=p*a[10];

    S:=s+a[10];

    Writeln(s,p,x);{задания а, в, г соответственно}

    end.

    • Отвечал:

      cupcakedkbo
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска