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

Узнай цену своей работы

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

Дана целочисленная матрица размера nm,заполненная случайным образом. Сформировать одномерный массив 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.

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы