Регистрация
Tini2311
27.07.2020 14:48
Информатика
Есть ответ 👍

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

163
180
Посмотреть ответы 3

Ответы на вопрос:

poilkee
poilkee
4,6(27 оценок)
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= 13 6 12 18 24 30 36 42 48 54 60 66 72 78 среднее 42
antonnetyaga
antonnetyaga
4,6(80 оценок)

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.

Egoraptor
Egoraptor
4,8(13 оценок)
Большой маленьки высокий низкий горячий холодный чёрный белый

Популярно: Информатика