Решаем задачи Абрамян на Паскале. Matrix33

Matrix33. Дана целочисленная матрица размера $$M \times N$$. Найти номер последнего из ее столбцов, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких столбцов нет, то вывести $$0$$.

Решение:

program Matrix33;
var
  a:array [1..10,1..10] of integer;
  column, Num, M, N, i, j, RezN,RezM:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 column:=0;
 for  j:=1 to N do
  begin
   Num:=0;
   for i:=1 to M do
    if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));

   if Num=0 then column:=j;
  end;
  Writeln(column);
end.

program Matrix33;

var

a:array [1..10,1..10] of integer;

column, Num, M, N, i, j, RezN,RezM:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

column:=0;

for j:=1 to N do

begin

Num:=0;

for i:=1 to M do

if a[i,j]<>0 then Num:=Num+(a[i,j] div abs(a[i,j]));

if Num=0 then column:=j;

end;

Writeln(column);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 2

program Matrix33;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  m, n, i, j, Pozitive, Negative: integer;

begin
  m := 10;
  n := 10;
  
  FillMatrixByRandom(a, m, n, 3, 1);//a[i,j] := Random(k) - z; (k=3; z=1)
  PrintMatrix(a, m, n);
  
  j := n;
  
  while j > 0 do
  begin
    Pozitive := 0;
    Negative := 0;
    for i := 1 to m do
      if a[i, j] > 0 then Pozitive += 1
      else if a[i, j] < 0 then Negative += 1;
    if (Pozitive = Negative) and (Pozitive <> 0) then break;
    j -= 1
  end;
  
  Write(j);
  Readln;
end.

program Matrix33;//fpc

uses TaskMatrix;

var

a: intMatrix;

m, n, i, j, Pozitive, Negative: integer;

begin

m := 10;

n := 10;

FillMatrixByRandom(a, m, n, 3, 1);//a[i,j] := Random(k) - z; (k=3; z=1)

PrintMatrix(a, m, n);

j := n;

while j > 0 do

begin

Pozitive := 0;

Negative := 0;

for i := 1 to m do

if a[i, j] > 0 then Pozitive += 1

else if a[i, j] < 0 then Negative += 1;

if (Pozitive = Negative) and (Pozitive <> 0) then break;

j -= 1

end;

Write(j);

Readln;

end.

Ответить

Но лучше в модуле TaskMatrix прописать другую перегрузку процедуры FillMatrixByRandom, в которой указать параметры границ для генератора случайных чисел, скажем, k и l. Например так:

procedure FillMatrixByRandom(var a: intMatrix; m, n, k, l: integer);
var
  i, j: integer;
begin
  if k <= l then
    for i := 1 to M do
      for j := 1 to N do
        a[i, j] := Random(l - k + 1) + k//от k до l включительно, k<=l
  else
    for i := 1 to M do
      for j := 1 to N do
        a[i, j] := (-1) * Random(abs(l - k - 1)) + k;
end;

procedure FillMatrixByRandom(var a: intMatrix; m, n, k, l: integer);

var

i, j: integer;

begin

if k <= l then

for i := 1 to M do

for j := 1 to N do

a[i, j] := Random(l - k + 1) + k//от k до l включительно, k<=l

else

for i := 1 to M do

for j := 1 to N do

a[i, j] := (-1) * Random(abs(l - k - 1)) + k;

end;

Тогда при вызове процедуры FillMatrixByRandom(a,m,n,-1,1) матрица заполнится элеметнами от -1 до 1

Ответить

Решаем задачи Абрамян на Паскале. Matrix33

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ