Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Сумма и произведение элементов матрицы

Автор: panasenko 28.11.2006, 23:11

Найти произведени элементов матрицы 3х3, что стоят выше главной диагонали ,И сумму что стоят ниже главной диагонали.

Нужно оформить подпрограммой вот такого вида

Код


Procedure Proc4(var W:arr2; M:integer; var R:arr1);
Var
    i,j:integer;    // счетчики строк и столбцов матрицы
    P:real;    // произведение элементов столбца матрицы
begin
      // проход по столбцам матрицы
    for j:=0 to M-1 do
    begin
     // поиск произведения элементов столбца матрицы
     P:=1;
      for i:=0 to M-1 do
             P:=P*W[i,j];
        R[j]:=P;
    end;
end;

матрица

123
456
326

Автор: Kuvaldis 29.11.2006, 01:40

M
Kuvaldis

Не забываем указывать язык программирования при создании темы!