Сформировать массив, каждый элемент которого равен разности произведения и суммы элементов строки - Turbo Pascal

Формулировка задачи:

Дана целочисленная матрица размера nm,заполненная случайным образом. Сформировать одномерный массив b1,b2,b3,…bn, каждый элемент которого равен разности произведения и суммы элементов соответствующей строки.

Код к задаче: «Сформировать массив, каждый элемент которого равен разности произведения и суммы элементов строки - Turbo Pascal»

textual
Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    B:array[1..nmax] of longint;
    i,j,n,m:byte;
    s,p:longint;
Begin 
    write('Количество строк n<=',nmax,': ');readln(n);
    write('Количество столбцов m<=',nmax,': ');readln(m);
    writeln('Матрица');
    For i:=1 to n do
    Begin
      s:=0;p:=1;
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        s:=s+A[i,j];
        p:=p*A[i,j];
      End;
      B[i]:=p-s;
      writeln;
    End;
    writeln('Массив');
    For i:=1 to n do
     write(B[i]:7);
    readln;
End.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы