Подсчитать количество положительных элементов в каждой строке матрицы

@nigangsta · Регистрация: 10.11.2014

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

Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры.

Использовать процедуры или функции

@ZX Spectrum-128 · 11.11.2014, 13:03

Pascal

const
  m=7;
  n=10;
type
  vector=array[1..n] of integer;
  matrix=array[1..m] of vector;
var
  a:matrix;
  y:vector;
  i,j:integer;
 
function SumInString(x:vector):integer;
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to n do
    if x[i]>0 then
      s:=s+1;
  suminstring:=s;
end;
 
begin
  randomize;
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
         { a[i,j]:=random(m*n)-m*n div 2;
          Write(a[i,j]:4);} // отладка
          readln(a[i,j]);
        end;
      Writeln;
    end;
  Writeln;
 
  for i:=1 to m do
    begin
      for j:=1 to n do
        y[j]:=a[i,j];
      writeln('В строке ',i,' положительных: ',SumInString(y));
   end;
  Readln;
end.

@nigangsta 0 / 0 / 0 Регистрация: 10.11.2014 Сообщений: 3
		1
	Подсчитать количество положительных элементов в каждой строке матрицы 10.11.2014, 17:57. Показов 4180. Ответов 1 Метки нет (Все метки) Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры. Использовать процедуры или функции 0

	11.11.2014, 13:03

Подсчитать количество положительных элементов в каждой строке матрицы

Решение