Дан массив из 50 целых чисел. Найти среднее арифметическое его элементов.

+1
Ответы (1)
  1. 8 сентября, 14:14
    0
    Решение в Паскале:

    Program sred;

    Var a: array[1 ... 50] of real;

    i, n: integer;

    s, sred: real;

    Begin

    Write ('n='); Readln (n);

    s:=0;

    For i:=1 to n do

    begin

    write ('введите число'); readln (a[i]);

    s:=s+a[i];

    end;

    sred:=s/n;

    writeln ('среднее арифметическое элементов: ', s);

    End.
Знаешь ответ на этот вопрос?