Bėda su kodu (kodas žiauriai paprastas) Paskalis.

Turbūt kokią kvailą klaidą įvėliau, ar kažkas panašaus... Kodas, pagal logiką atrodo turėtų būti teisingas. http://prntscr.com/h9xuta

program Vidurkis;
   var m,n,i,v:integer;
   visi,s:real;
[color="#FF0000"]                                       //Parašyti programą, kuri rastų visų intervalo [m, n] sveikųjų skaičių aritmetinį vidurkį.[/color]
begin
 WriteLn('Įveskite pirmą ir paskutinį intervalo skaičius: ');
 ReadLn(m,n);
   for i:= m to n do
   visi:=visi+1;
   s:=s+i;
   v:=s/visi;
 WriteLn('Vidurkis yra: ',v);
 Readln;
end.

Turbūt kokią kvailą klaidą įvėliau, ar kažkas panašaus... Kodas, pagal logiką atrodo turėtų būti teisingas. http://prntscr.com/h9xuta

program Vidurkis;
   var m,n,i,v:integer;
   visi,s:real;
[color="#FF0000"]                                       //Parašyti programą, kuri rastų visų intervalo [m, n] sveikųjų skaičių aritmetinį vidurkį.[/color]
begin
 WriteLn('Įveskite pirmą ir paskutinį intervalo skaičius: ');
 ReadLn(m,n);
   for i:= m to n do
   visi:=visi+1;
   s:=s+i;
   v:=s/visi;
 WriteLn('Vidurkis yra: ',v);
 Readln;
end.

Nurodyk pradines values kintamiesiems.

http://prntscr.com/h9yxk2 Beliko parašyt mandrų tekstą ir viskas. Jei kam reikės kodas:

program Bevardė1;
   var S,i,n,m,visi,v:integer;
begin
 WriteLn('Įvesti galutinė reikšmę: ');
 ReadLn(m,n);
   for i:= m to n do
       begin
        visi:=visi+1;
        S:= S+i;
        v:=S div visi;
       end;
 WriteLn('Iš viso skaičių yra: ',visi,' Skaičių suma yra: ',S,' Vidurkis yra: ', v);
 Readln;
end.

Dar nežiūrėjau ar nėra bugų, bet kodas lengvas, greit ištaisyti įmanoma.

program a;
var n, m, 
   k, s:integer;
begin
writeln('Ivesti m ir n: ');
readln(m, n);
k := n - m + 1; //skaiciu kiekis intervale [m, n]
s := (m+n)*k div 2; //skaiciu suma intervale [m, n]
writeln(' Kiekis: ', k, 
       ' Suma: ', s, 
       ' Vidurkis: ', (s/k):2:2);
readln();
end.

program a;
var n, m, 
   k, s:integer;
begin
writeln('Ivesti m ir n: ');
readln(m, n);
k := n - m + 1; //skaiciu kiekis intervale [m, n]
s := (m+n)*k div 2; //skaiciu suma intervale [m, n]
writeln(' Kiekis: ', k, 
       ' Suma: ', s, 
       ' Vidurkis: ', (s/k):2:2);
readln();
end.

Jop, užmiršau, kad vidurkis ten, o ne paprasta dalyba :D. 8 gavau - pakanka xD