• 1)сформировать массив каждый их них равен своему порядковому номеру умноженому на 6. Найти среднее арифметическое всех элементов массива.

    Паскаль. Помогите пожалуйста

Ответы 3

  • Помогите пожалуйста, Придумайте массив и исполните предложенный фрагмент программы. Сформулируйте соответствующую задачу. a:=f[1]; b:=f[2]; for i:=1 to 8 do f[i]:= f[i+2]; f[9]:=a; f[10]:=b;
    • Автор:

      farmer61
    • 5 лет назад
    • 0
  • PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);

     a.Println;

     Println('Среднее', a.Average)

    end.

    n= 136 12 18 24 30 36 42 48 54 60 66 72 78Среднее 42
    • Автор:

      rowanqh1w
    • 5 лет назад
    • 0
  • var a:array[1..50] of integer;

    i:integer;  z:real;

    begin

         for i:=1 to random(30) do

         begin

              a[i]:=i*6;

              z:=z+a[i];

              write(a[i],' ');

         end;

         writeln;

         write('Среднее арифметическое элементов массива=',z/50);

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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