Сделать по программированию в pascal. 1. найти произведение всех элементов массива размерностью n (если элемент равен 0, то пропустить). 2. найти максимальный по модулю элемент матрицы. напечатать его значение и индексы.

1) const   n = 5; //размерность массива var   m: array[1..n] of integer; begin   var pr : = 1;   for var i : = 1 to n do   begin       read(m[i]);       if m[i] < > 0 then pr : = pr * m[i];   end;   writeln(pr); end. пример: входные данные: 1 2 3 0 5 выходные данные: 30 2) const   n = 3; //размерность матрицы var   m: array[1..n, 1..n] of integer;   i, j: integer;   rec: record       mmax: integer = -(maxint);       ind: record           i: integer;           j: integer;       end;   end; begin   for i : = 1 to n do       for j : = 1 to n do       begin           read(m[i, j]);           if abs(m[i, j]) > rec.mmax then begin               rec.mmax : = abs(m[i, j]);               rec.ind.i : = i;               rec.ind.j : = j;           end;       end;   writeln('максимальный по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, '; ', rec.ind.j, ')'); end. пример: входные данные: 1 2 3 4 5 -9 7 8 6 выходные данные: максимальный по модулю элемент матрицы 9(2; 3)

18

Объяснение:

1*2*2*2*2=16

+

1*2=2