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

@killalic · Регистрация: 14.05.2010

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

Подсчитать количество отрицательных елементов каждого столбчика матрицы A [1...4,1...5], B[1..4,1..5]
Спасибо за раннее !!!

@Puporev · 14.05.2010, 11:38

Не по теме:

Сообщение от killalic

каждого столбчика

А каждой строчечки не нужно?

@killalic · 14.05.2010, 14:40 **[ТС]**

нет, не надо.

@Puporev · 14.05.2010, 15:56

Pascal

uses crt;
const n=4;
      m=5;
type matr=array[1..n,1..m] of integer;
procedure Vvod(var mt:matr;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     mt[i,j]:=random(20)-9;
     write(mt[i,j]:4);
    end;
   writeln;
 end;
writeln;
end;
procedure KolOtr(mt:matr);
var i,j,k:byte;
begin
writeln('Количество отрицательных в столбцах:');
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  if mt[i,j]<0 then k:=k+1;
  writeln('Столбец ',j,'=',k);
 end;
writeln;
write('Press Enter...');
readln;
clrscr
end;
var a,b:matr;
begin
clrscr;
Vvod(a,'A');
KolOtr(a);
Vvod(b,'B');
KolOtr(b);
end.

@killalic · 14.05.2010, 18:03 **[ТС]**

Спасибо большое !!!

@killalic 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 20
		1
	Подсчитать количество отрицательных елементов каждого столбчика матрицы 14.05.2010, 10:56. Показов 505. Ответов 4 Метки нет (Все метки) Подсчитать количество отрицательных елементов каждого столбчика матрицы A [1...4,1...5], B[1..4,1..5] Спасибо за раннее !!! 0

@Puporev
	14.05.2010, 11:38 #2
	Не по теме: Сообщение от killalic каждого столбчика А каждой строчечки не нужно? 0

@killalic 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 20
	14.05.2010, 14:40 [ТС]	3
	нет, не надо. 0

@killalic 0 / 0 / 0 Регистрация: 14.05.2010 Сообщений: 20
	14.05.2010, 18:03 [ТС]	5
	Спасибо большое !!! 0

Опции темы