Дана матрица(двумерный массив). посчитать произведения всех положительных элементов в каждой строке и занести их в одномерный массив(с процедур) подскажите,,дошло только как выводить в столбик эти произведения,но не как занести их в полноценный массив(

217

448

Посмотреть ответы 2

Ответы на вопрос:

litvinsofia245

Информатика

4,8(52 оценок)

Type tmatrix = array[,] of integer; tvector = array of integer; var a: tmatrix; b: tvector; m,n,i,j: integer; procedure createmulvector(a: tmatrix; var b: tvector); var i, j: integer; f: boolean; begin setlength(b, length(a, 0)); for i : = 0 to length(a, 0) - 1 do begin b[i] : = 1; f : = false; for j : = 0 to length(a, 1) - 1 do begin if a[i,j] > 0 then begin f : = true; b[i] : = b[i] * a[i,j]; end; end; if not f then b[i] : = 0; end; end; procedure writevector(b: tvector); var i: integer; begin for i : = 0 to length(b) - 1 do write(b[i]: 3); end; begin randomize; n : = random(10) + 1; m : = random(10) + 1; setlength(a, n, m); writeln('исходная матрица: '); for i : = 0 to n-1 do begin for j : = 0 to m-1 do begin a[i,j] : = random(10) - 5; write(a[i,j]: 4); end; writeln; end; createmulvector(a, b); writeln('полученный вектор: '); writevector(b); end.