Практическая работа

[лузер1408]

Дана матрица E(5x5), получить массив D(5),такой чтоD(1)=произведению элементов первой строки матрицы E;D(2)=произведению элементов второй строки матрицы E и т.д.

[Stilet]

Так пойдет?:

MODULE Матрица;
IMPORT StdLog,ObxRandom;
VAR  e:ARRAY(5) OF ARRAY(5) OF INTEGER;d:ARRAY(5) OF INTEGER;

PROCEDURE ВыводМассива;
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(e)-1 DO 
  FOR j:=0 TO LEN(e[i])-1 DO
    e[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
    StdLog.Int(e[i,j]);
    StdLog.Tab;
  END;
    StdLog.Tab;d[i]:=e[i,0];
  FOR j:=1 TO LEN(e[i])-1 DO
    d[i]:=d[i]*e[i,j]
  END;
    StdLog.String("Произведение= ");
    StdLog.Int(d[i]);
    StdLog.Ln;
 END;
END ВыводМассива;


PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN

 StdLog.Clear;
 ВыводМассива;

END do;

END Матрица.
Матрица.do;

Вот результ:

-38 4 14 24 -2 Произведение= 102144
-1 -49 36 27 48 Произведение= 2286144
31 -38 -1 30 47 Произведение= 1660980
17 9 -31 -7 -40 Произведение= -1328040
6 16 14 -46 7 Произведение= -432768

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=95591
А эт чем неустроила тема?

[Stilet]

А эт чем неустроила тема?

Чьерт побьери... Так это кросспост...
Закрываю