Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Найти среднее значение целых десятичных чисел кол-во задается с клавиатуры
Писать на языке паскаль

Ответ оставил Гость

Var  col,col1,sum,zn: integer;
       srar: real;

Begin 
 readln(col); 
 col1:=col; 
 sum:=0;

 while col1 > 0 do 
  begin   
   readln(zn); 
   sum:=sum+zn; 
   col1:=col1-1; 
  end; 

 srar:=sum/col; 
 writeln(srar);
End.