• Составьте программу которая формирует массив из 10 случайных чисел в диапазоне от 1 до 10 и вычисляет произведения элементов массива с нечестными значениями.
    На экран выводится исходный массив, массив с нечестными значениями и произведение.

Ответы 1

  • program fantscrin;

     const n = 10;

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

         i,s:integer;

    Begin

     for i:=1 to n do

       a[i]:= random(11)+1;

     for i:=1 to n do

       write(a[i], '  ');

     p:=1;

     for i:=1 to n do

       if (i mod 2 <> 0) then

                                  begin

                                    p:=p*a[i];

                                    write(a[i], '  ');

                                   end;

     writeln('');

     writeln('Произведение = ',p);

    End.

    • Автор:

      zechariah
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years