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