Автор: Bronislav

Bronislav — Sun, 02 Sep 2018 07:51:36 +0000

program Matrix34;//pabc.net

begin
  var m := 10;
  var n := 5;
  
  var a := MatrRandom(m, n, 1, 9); a.Println;
  
  var i := m - 1;
  
  while i >= 0 do
  begin
    if a.Row(i).Where(t -> t.isEven).Count = n then break;
    i -= 1
  end;
  
  Print(i + 1)
end.

program Matrix34;//pabc.net

begin

var m := 10;

var n := 5;

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

var i := m - 1;

while i >= 0 do

begin

if a.Row(i).Where(t -> t.isEven).Count = n then break;

i -= 1

end;

Print(i + 1)

end.

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

Автор: Bronislav