profile
Опубликовано 5 лет назад по предмету Информатика от w0lfix

сформулируйте массив из 10 целых чисел из промежутка [1;15] и вычислите произведение элементов массива с нечетными номерами

  1. Ответ
    Ответ дан Murrrrrrr
    program 123;
    var a:array[1..10] of integer;
    i,p: integer;
    begin
    a[i]:=random(15);
    p:=1;
    for i:=1 to 10 do
                            if (i mod 2<>0) then (p:=(a[i]*p));
    end.
Самые новые вопросы