МБ
Максим Быков

Восстановите условие задачи по фрагменту программы, если матрица содержит n строк и m столбцов: P :=0; for j:=1 to n do

Восстановите условие задачи по фрагменту программы, если матрица содержит n строк и m столбцов:
P :=0; for j:=1 to n do if A[j, m -1]<0 then P := P +1;
Выберите один ответ:
a. Вычислить произведение отрицательных элементов матрицы
b. Определить количество отрицательных элементов предпоследнего столбца матрицы
c. Определить количество отрицательных элементов матрицы
d. Определить количество отрицательных элементов матрицы
e. Вычислить сумму отрицательных элементов предпоследнего столбца матрицы

МБ
Макс Б.v

Ответ b. Определить количество отрицательных элементов предпоследнего столбца матрицы.

Похожие вопросы
Нужна маленькая помощь программиста. чем отличается это for i=1 to n-1 do от этого for i=1 to n do
Как в Excel из N строк и M столбцов выбрать строки, в которых есть число А (фильтр по всем столбцам сразу)?
Какой фрагмент программы вычисляет сумму элементов третьего столбца матрицы А
Восстановите условие задачи по фрагменту программы:
Заполнить с клавиатуры двумерный массив из n строк и m столбцов.
Как создать цикла for to do в Pascal по задаче:
for i:=1 to N do for j:=i+1 to N do Последняя строка што означает? ..
Элемент а [i,j] является минимальным в i-oй строке и максимальным в j-ом столбце матрицы.
В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.
Помогите написать программу... Необходимо написать программу, которая меняла столбцы и строчки местами в матрице (транспонировала) в динамической памяти, в паскале.begin clrscr; getmem(m,n*n*sizeof(integer)); for i:=1 to n do for j:=1 to n do m^[j*n+i]:=vidnosh^[i*n+j]; writeln('Обратная матрица имеет вид: '); for i:=1 to n do begin for j:=1 to n do write(m^[i*n+j]:3); writeln; end;но не работает.