Вопрос от посетителя
надо решать через Паскаль. составил две программы и обе со странным ответом. что не то?
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 задача. Ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)