Question

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

Answer 1

Var i,n,m,sum:integer;r:real;
Begin
Randomize;
write('Введите количество целых десятичных чисел');
Readln(n);
for i:=1 to n do begin
m:=random(100)-50;
write(m:4);sum:= sum + m;end;
writeln;
r:= sum/n;write('среднее значение ', n,' целых десятичных чисел ',r:8:4);end.

Answer 2

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.