Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке

@pomochmne · Регистрация: 16.01.2014

Author24 — интернет-сервис помощи студентам

8. Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке.

@Nickolay0512 · 19.01.2014, 12:12

Pascal

const m=3; n=4;
function Pr(a:array[1..n,1..m] of integer; i:integer):integer;
var j,k:integer;
begin
     k:=0;
     for j:=1 to m do
         if a[i,j]>0 then inc(k);
     pr:=k;
end;
var b:array[1..n,1..m] of integer;
    i,j:integer;
    a:array[1..n] of integer;
begin
     for i:=1 to n do
         for j:=1 to m do
         begin
              writeln('Введите b[',i,j,']');
              read(b[i,j]);
         end;
     for i:=1 to n do
         a[i]:=pr(b,i);
     writeln('Вектор A:');
     for i:=1 to n do
         write(a[i]:4);
readln;
end.

@pomochmne 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 11
		1
	Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке 16.01.2014, 17:02. Показов 1740. Ответов 1 Метки нет (Все метки) 8. Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке. 0

	19.01.2014, 12:12

Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке

Решение