Question

Напишите программу, которая находит сумму элементов массива (25 целых чисел, которые вводятся с клавиатуры), и выводит на экран среднее значение его элементов. программа: pascal abc.

Answer 1

Const
  n = 25;
var
  a: array[1..n] of integer;
  i, s: integer;
begin
  Writeln('Введите элементы массива');
  s := 0;
  for i := 1 to n do
  begin Read(a[i]); s := s + a[i] end;
  Writeln('Среднее значение элементов массива равно ', s/n)
end.

Answer 2

Var A:array[1..25] of Integer;
i:integer;
S:real;
begin
Readln(N);
For i:=1 to 25 do
Readln(A[i]);
For i:=1 to 25 do
S:=S+A[i];
S:=S/25;
Writeln(S);
end.