[Nurlan]

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

Код:

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...