Вычислите сумму и среднее арифметическое элементов массива

@Евгения55 · Регистрация: 25.10.2016

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

В заданном массиве из 8 действительных чисел вычислите сумму и среднее арифметическое

@JokeR.BY · 09.11.2016, 14:20

Pascal

const
    N = 8;
var
    ar: Array[1..N] Of Real;
    sum: Real;
    i: 1..N;
begin
    sum := 0;
    Randomize;
    Write('Original vector:');
    for i := 1 to N do
    begin
        ar[i] := Random * 198 - 99;
        Write(ar[i]:7:2);
        sum := sum + ar[i];
    end;
    WriteLn;
    WriteLn('sum=', sum:0:2);
    WriteLn('avr=', (sum / N):0:2);
end.

@Евгения55 0 / 0 / 0 Регистрация: 25.10.2016 Сообщений: 15
		1
	Вычислите сумму и среднее арифметическое элементов массива 09.11.2016, 06:46. Показов 1137. Ответов 1 Метки нет (Все метки) В заданном массиве из 8 действительных чисел вычислите сумму и среднее арифметическое 0

	09.11.2016, 14:20

Вычислите сумму и среднее арифметическое элементов массива

Решение