Найти среднее арифметическое элементов заданного массива

@Николай ВВ · Регистрация: 24.10.2014

Author24 — интернет-сервис помощи студентам

В массиве с элементами b_1=1, b_k=sink+cosk, k=2,3,..,10 Найти среднее арифметическое его элементов. Массив распечать в строку. (желательно с блок схемой)

Добавлено через 1 час 23 минуты
в паскале

@ZX Spectrum-128 · 03.05.2015, 20:48

(С) Kodzaev

Pascal

Const
  n=10;
Var
  x: Array[1..n] of real;
  i,k: Byte;
  s: real;
BEGIN
  s:=0;
  Writeln('Massiv:');
  For i:=1 to n do
    begin
      x[i]:=sin(i) + cos(i);
      s:=s+x[i];
      Write(x[i]:16:8);
    end;
  Writeln;
  Writeln('Srednee arifmetich = ',s/n:16:8);
  Readln;
END.

@Николай ВВ 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 64
		1
	Найти среднее арифметическое элементов заданного массива 03.05.2015, 19:27. Показов 1266. Ответов 1 Метки нет (Все метки) В массиве с элементами b_1=1, b_k=sink+cosk, k=2,3,..,10 Найти среднее арифметическое его элементов. Массив распечать в строку. (желательно с блок схемой) Добавлено через 1 час 23 минуты в паскале 0

	03.05.2015, 20:48

Найти среднее арифметическое элементов заданного массива

Решение