[Nurlan]

помогите додумать задачу, мне надо сделать такую же таблицу, но вместо суммы элементов, нужно умножить их, например я ввел 5 раз 2 и должен получить ответ: 32

Код:

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

var   a : array[1..5] of real;    // массив   summ: real;                 // сумма элементов   sr:  real;                  // среднее арифметическое   i: integer;                 // индекс begin   // ввод массива   // считаем, что если ячейка пустая, то соответствующий   // ей элемент массива равен нулю   for i:= 1 to 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;     // вывод результата   Label2.Caption :=         'Сумма элементов: ' + FloatToStr(summ) + #13+         'Среднее арифметическое: ' + FloatToStr(sr); end;

Admin: Пользуемся тегами!

[NIch]

Ну и ну совсем думать не хотят...
Было

// обработка массива
summ := 0;
for i :=1 to 5 do
summ := summ + a[i];

Стало

// обработка массива
Mul := 0;
for i :=1 to 5 do
Mul := Mul * a[i];

[Nurlan]

я вместо + вставил * но вроде тип переменных должен быть разный вот сейчас ввожу 5 раз цифру 2 и получаю 1.011808010160202E300

[NIch]

Если не сложно кинь исходники (лень самому набирать), исправлю в соответствии с заданием...

[Nurlan]

получилось!!!!!

[NIch]

Как поправил???

[Nurlan]

СПАСИБО ТЕБЕ Nich!

[Nurlan]

я поставил summ:=1 и получилось 32

[NIch]

Да все верно, начальное произвдение должно отличатся от 0...т.к. любое число х 0 будет 0...