Написать с помощью паскаля, используя процедуру
Дана целочисленная квадратная матрица порядка n(n=8). Получить элементы массива x равные максимальному среди первого и последнего четного элемента очередной строки матрицы. Считать, что четных элементов в каждой строке больше двух
Ответы на вопрос
Ответил Аноним
0
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.
Приложения:

Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Алгебра,
7 лет назад
Биология,
7 лет назад
Алгебра,
9 лет назад