Question

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

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.

Answer 1

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