Надо решать через паскаль. составил две программы и обе со странным ответом. что не то? 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;
begin
s:=0;
c:=0;
for i:= -2 to 27 do
begin
s:=s+i;
c:=c+1;
y:=s/c;
end;
writeln('srednee arifmeticheskoe=',y);
readln;
end.
Вот так вот должна быть 1 задача. Ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)