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

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

Решение:

program Matrix35;
var
  a:array [1..10,1..10] of integer;
  Num, M, N, i, j: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;

 for  j:=1 to N do
  begin
   Num:=0;
   for i:=1 to M do
     if (a[i,j] mod 2) = 0 then
      begin
       Num:=Num+1;
      end;

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

program Matrix35;

var

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

Num, M, N, i, j: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;

for j:=1 to N do

begin

Num:=0;

for i:=1 to M do

if (a[i,j] mod 2) = 0 then

begin

Num:=Num+1;

end;

if Num=0 then break;

end;

Writeln(j);

end.

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

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

дэн

02.10.2016 в 16:10

Что значит num i j m n?

Ответить
Anton

02.10.2016 в 17:48

не понимаю вопроса…
строчка
Num, M, N, i, j, RezN,RezM : Integer;
инициализирует переменные целого типа.
Соответственно num, i, j, m, n это переменные целого типа.
Соответственно
M это количество строк
N это количество столбцов
i используется в циклах как текущая строка
j учавствует в цикле как текущий столбец

RezN,RezM не участвуют в процессе поэтому я их убрал.

Ответить

program Matrix35;//pabc.net

begin
  var m := 5;
  var n := 10;
  
  var a := MatrRandom(m, n, 1, 9); a.Println;
  
  var j := 0;
  
  while j <= n - 1 do
  begin
    var foundEven := false;
    for var i := 0 to m - 1 do
      if a[i, j].IsEven then
      begin
        foundEven := true;
        break
      end;
    if not foundEven then break;
    j += 1;
  end;
  
  Print(j <= n - 1 ? j + 1 : 0)
end.

program Matrix35;//pabc.net

begin

var m := 5;

var n := 10;

var a := MatrRandom(m, n, 1, 9); a.Println;

var j := 0;

while j <= n - 1 do

begin

var foundEven := false;

for var i := 0 to m - 1 do

if a[i, j].IsEven then

begin

foundEven := true;

break

end;

if not foundEven then break;

j += 1;

end;

Print(j <= n - 1 ? j + 1 : 0)

end.

Ответить

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

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

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

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