Question

Написать с помощью паскаля, используя процедуру

Дана целочисленная квадратная матрица порядка n(n=8). Получить элементы массива x равные максимальному среди первого и последнего четного элемента очередной строки матрицы. Считать, что четных элементов в каждой строке больше двух

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

procedure DummyProc(a: array[,] of integer; var x: array of integer);

begin

 var n := a.RowCount;

 x := new integer[n];

 for var i := 0 to n - 1 do

 begin

   var b := a.Row(i).Where(t -> t.IsEven);

   x[i] := Max(b.First, b.Last)

 end

end;

begin

 var a := MatrRandom(8, 8, 10, 99);

 a.Println(3);

 Writeln(24 * '-');

 var x: array of integer;

 DummyProc(a, x);

 x.Println

end.