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

Автор: Bronislav

Bronislav — Sat, 01 Sep 2018 11:39:06 +0000

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.

Автор: Anton

Anton — Sun, 02 Oct 2016 13:48:31 +0000

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

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

Автор: дэн

дэн — Sun, 02 Oct 2016 12:10:50 +0000

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