Найти номер последнего из ее столбцов матрицы
Дана целочисленная матрица размера MxN. Найти номер последнего из ее столбцов, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких столбцов нет, то вывести 0.
Код:
var
otvet, minus,plus,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M);
readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do
read(a[i,j]);
end;
otvet:=0;
for i:=1 to N do
begin
minus:=0;
plus:=0;
for j:=1 to M do
begin
if a[j,i]>0 then inc(Plus);
if a[j,i]<0 then inc(minus);
end;
if Plus = minus then otvet:=i;
end;
writeln;
writeln('Ответ');
writeln('Номер столбца ',otvet );
end.
otvet, minus,plus,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M);
readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do
read(a[i,j]);
end;
otvet:=0;
for i:=1 to N do
begin
minus:=0;
plus:=0;
for j:=1 to M do
begin
if a[j,i]>0 then inc(Plus);
if a[j,i]<0 then inc(minus);
end;
if Plus = minus then otvet:=i;
end;
writeln;
writeln('Ответ');
writeln('Номер столбца ',otvet );
end.
На Дельфи. Только сам принцип. Под нужные размерности и ввод матрицы переделаешь сам.
Код:
program Project1;
{$APPTYPE CONSOLE}
var
I,J: Integer;
neg, pos: Integer;
res: Integer;
M: array[1..3, 1..2] of integer;
begin
M[1,1]:= 1; M[1,2]:= -2;
M[2,1]:= 0; M[2,2]:= 0;
M[3,1]:= -5; M[3,2]:= 6;
res:= 0;
for J:= 2 downto 1 do //по столбцам, начиная с последнего
begin
neg:= 0;
pos:= 0;
for I := 1 to 3 do
if(M[I,J] < 0) then inc(neg)
else if(M[I,J] > 0) then inc(pos);
if((neg = pos) and (neg <> 0)) then
//можно еще pos<>0 или взамен neg*pos<>0 -- но это избыточно
begin
res:= J;
break;
end;
end;
writeln('Result (0 if not found): ', res);
readln;
end.
{$APPTYPE CONSOLE}
var
I,J: Integer;
neg, pos: Integer;
res: Integer;
M: array[1..3, 1..2] of integer;
begin
M[1,1]:= 1; M[1,2]:= -2;
M[2,1]:= 0; M[2,2]:= 0;
M[3,1]:= -5; M[3,2]:= 6;
res:= 0;
for J:= 2 downto 1 do //по столбцам, начиная с последнего
begin
neg:= 0;
pos:= 0;
for I := 1 to 3 do
if(M[I,J] < 0) then inc(neg)
else if(M[I,J] > 0) then inc(pos);
if((neg = pos) and (neg <> 0)) then
//можно еще pos<>0 или взамен neg*pos<>0 -- но это избыточно
begin
res:= J;
break;
end;
end;
writeln('Result (0 if not found): ', res);
readln;
end.
все платно чувак ахахха