Определить сумму и количество четных элементов массива

[KREGI]

Есть задача, определить сумму и колличество четных элементов массива, состоящего из 8 элементов.
вот что написал я

procedure TForm1.Button1Click(Sender: TObject);
Var
p: array[1..8] of integer;
i,s: integer;
begin
for i:=0 to 8  do
p[i]:=strtoint(stringgrid1.cells[i,0]);
If (p[i] mod 2 = 0) then
s:=s+p[i];

Label1.caption:=  'Сумма четных чисел'+inttostr(s)

end;


end.

, проверьте, правильно? программа выдает ошибку...не здоровую

[Sazary]

По порядку:

p: array[1..8] of integer;
............................
for i:=0 to 8  do

Массив из 8-ми элементов, а в цикле перебираете девять.

p[i]:=strtoint(stringgrid1.cells[i,0]);

Первое значение i = 0, а элемента с таким индексом нет.

s:=s+p[i];

s не проинициализировано. Так что в ответе будет бред.

for i:=0 to 8  do
p[i]:=strtoint(stringgrid1.cells[i,0]);
If (p[i] mod 2 = 0) then
s:=s+p[i];

If вне цикла, поэтому проверит только один раз.

=======================
Исправленный вариант:

procedure TForm1.Button1Click(Sender: TObject);
Var
p: array[1..8] of integer;
i,s: integer;
begin
for i:=1 to 8 do       // добавил для проверки.
 stringgrid1.Cells[i-1,0] := IntToStr(i);

s := 0;

for i:=1 to 8  do
 begin
 p[i]:=strtoint(stringgrid1.cells[i-1,0]);
 If (p[i] mod 2 = 0) then
  s:=s+p[i];
 end;

Label1.caption:=  'Сумма четных чисел '+inttostr(s);

end;

[KREGI]

Огромное спасибо, вот что значит писать ночью... =)

[KREGI]

stringgrid1.Cells[i-1,0] := IntToStr(i);
для какой проверки?, тоесть проверяем ячейку массива на наличие числа?

[Sazary]

Сообщение от KREGI

для какой проверки?

Просто заполняю stringgrid числами от 1 до 8.
Чтобы вручную не вводить.

[KREGI]

ну я это отключу, мну нужно именно мои числа...

[KREGI]

Sazary огромное тебе спасибо =)

[KREGI]

Скажи пожайлуста а почему именно p[i]:=strtoint(stringgrid1.cells[i-1,0]);
интересует то что в [i-1,0]. тоесть почему i-1

[TOJluK]

Сообщение от KREGI

Скажи пожайлуста а почему именно p[i]:=strtoint(stringgrid1.cells[i-1,0]);
интересует то что в [i-1,0]. тоесть почему i-1

В StringGrid ячейки от 0 до X, а цикл от 1 до 8.

[Sazary]

Нумерация в stringgrid идет с нуля.
Поэтому, т.к. в цикле идет от 1 до 8, нужно отнимать единицу.
С таким же успехом можно было написать

p: array[0..7] of integer;

и цикл

for i:=0 to 7  do

Тогда ничего отнимать не нужно.