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

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.

Question

Информатика

Венедим

1 ноября, 14:13

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

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.

+2

Ответы (1)

Знаете ответ?

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