Выручайте пример не работает.

[Ильюха1]

procedure TForm1.Button1Click(Sender: TObject);
var
a :array[1..5]of integer;//массив
suum :integer;//сумма элем
sr:real;//ср арифм
i:integer;//индекс
begin
for i:=1to 5 do
if Length(StringGrid1.Cells[i-1,0]<>0
then a[i]:=StrToFloat (StringGrid1.Cells[i-1,0])
else a[i]:=0;
//обработка массива
summ:=0;
for i:= 1 to 5 do
summ := summ + a[i]; sr:=summ/5;
Label1.Caption := 'Сумма элементов:'+FloatToStr(sr);

end;

end.

Выдает ошибки,Incompatible types:'String' and 'Integer'
Assignment to FOR-Loop varible 'i'
Undeclared identifier: 'Summ' с этой раньше боролся обЪявлял несколько разных сумм
пример из учебника . Может среда настроена не так.Подскажите если не тяжело ,до этого находил ошибки в этот пример уперся спросить не у кого.



________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[mss]

> пример из учебника

Ты его даже передрать без ошибок не удосужился)

[Mad_Cat]

Undeclared identifier: 'Summ'

и правильно ругается
обьявлено

suum :integer;//сумма элем

а используется

summ:=0;

и зачем вы в integer extended то толкаете
у вас

a[i]:=StrToFloat (StringGrid1.Cells[i-1,0])