надо решать через Паскаль. составил две программы и обе со странным ответом. что не то?

program qwe;

uses crt;

var x.s:integer;

y:real;

begin

s:=0;

for i:= -2 to 27 do

s:=s+x;

y:=s/30

writeln('srednee arifmeticheskoe=',y);

readkey;

end.

 

program dada;

uses crt;

var i,s,o:integer;

begin clrscr;

s:=0;

o:=0;

for i:=-2 to 27 do

begin s:=s+1;

o:=o+1;

end;

writeln(s/o);

readkey;

end.

program qwe;

uses crt;

var  c, s, i:integer;y:real;

begins:=0;c:=0;for i:= -2 to 27 dobegins:=s+i;c:=c+1;y:=s/c;end;writeln('srednee arifmeticheskoe=',y);

readln;end.

Вот так вот должна быть 1 задача. Ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)