[dolci2006]

Программа для нахождение среднего арифметического. невыполняет

var
  Form1: TForm1;
  N, i, p ,s: integer;
  A: array [1..100] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
N := StrToInt(InputBox('5.16','Введи количество чисел',''))  ;
p:= 0;

for i:=1 to n do
begin
A[i]:= StrToInt(InputBox('5.16','Введи числo',''))  ;
p := p + A[i]    ;
end

s := p / n  ;  // Сдесь ошибка
Edit1.Text:= FloatToStr(s); 

end;
end.

[lmikle]

Правильная ошибка. Ты производишь операцию деления, результатом которой будет число с плавающей точкой, но хочешь пометить результат в тип Integer. Либо используй функцию Int, либо опиши переменную s как Double.

[dolci2006]

можно подробнее...
выставил double, неработает

[Interface]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

var   Form1: TForm1;   N, i, p ,s: integer;   A: array [1..100] of integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin N := StrToInt(InputBox('5.16','Введи количество чисел',''))  ; p:= 0;   for i:=1 to n do begin A[i]:= StrToInt(InputBox('5.16','Введи числo',''))  ; p := p + A[i]    ; end;   s := Round(p / n);  // Сдесь ошибка// уже нет =) Edit1.Text:= FloatToStr(s);   end; end.

Поясню ошибок в выложенном коде моя делфа нашла 3:
1. ';' после 'end';
2. Приравнивание Integer Real'ное ( ) значение;
3. И переменная в цикле должна быть локальной.
Round - (насколько я знаю) округляет real до Integer
Можно так же через div:

Код:

1	s := p  div  n;

А проще всего просто сделать s : Real:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

var   Form1: TForm1;   N, i, p : Integer;   s: Real;   A: array [1..100] of integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin N := StrToInt(InputBox('5.16','Ââåäè êîëè÷åñòâî ÷èñåë',''))  ; p:= 0;   for i:=1 to n do begin A[i]:= StrToInt(InputBox('5.16','Ââåäè ÷èñëo',''))  ; p := p + A[i]    ; end; // А ТУТ!!!   s := p / n  ;  // ОШИБКА НЕ ТУТ!!! Edit1.Text:= FloatToStr(s);   end; end.

На самом деле ошибка строкой выше - надо после end ставить ';' .
P.s. ...на всяк случай если в инпут бокс нажать "Отмена" ниче хорошего не выйдет!...

[dolci2006]

Спасибо... как меня это ";" достали. после VB сложно переходить на др. системы