Сформировать массив, каждый элемент которого равен разности произведения и суммы элементов строки - Turbo Pascal
Формулировка задачи:
Дана целочисленная матрица размера nm,заполненная случайным образом. Сформировать одномерный массив b1,b2,b3,…bn, каждый элемент которого равен разности произведения и суммы элементов соответствующей строки.
Решение задачи: «Сформировать массив, каждый элемент которого равен разности произведения и суммы элементов строки»
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.