[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: Пользуемся тегами!