Найти сумму элементов массива состоящего из натуральных чисел и найти их среднее...

Question

Найти сумму элементов массива состоящего из натуральных чисел и найти их среднее арифметическое на языке паскаль

Answer 1

1. program task31152774;
2. const
3.  N = 10;
4. var
5.  arr: array[1..N] of integer;
6.  S: real;
7. begin
8.  for var i := 1 to N do
9.    begin
10.      Readln(arr[i]);
11.      S := S + arr[i]
12.    end;
13.  Writeln('СУММА ЭЛЕМЕНТОВ = ', S);
14.  Writeln('СРЕДНЕЕ АРИФМ. = ', S / N);
15. end.