введите в массив 5 целочисленных значений введите их в одну строку через запятую получите...

Question

введите в массив 5 целочисленных значений введите их в одну строку через запятую получите для массива среднее арифметическое число )) заранее спасибо

Answer 1

Program Z;

uses crt;

const N=5;

var A:array [1..N] of integer;

      i:integer;

      s:real;

begin 

     ClrScr;  

     

     for i:=1 to N do

     readln (A[i]);

 

     ClrScr;

   

      for i:=1 to N do

      begin

      write (A[i],',');

      s:=s+A[i];

      end;

 

      writeln;

      s:=s/n;

      writeln (s);

  

      readln

end.