Найти наибольший элемент матрицы

Question

Информатика: Найти наибольший элемент матрицы ​

Змей24 · Accepted Answer

//PascalABC.NET //Версия 3.3, сборка 1634 (14.02.2018) begin   var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);   var n := ReadInteger( n- );   for var i := 4 downto 0 do   begin     k[i] := n div t[i];n := n mod t[i];   end;    if k[0] * cost[0] = cost[1] then begin k[0] := 0;inc(k[1]); end;   if k[0] * cost[0] + k[1] * cost[1] = cost[2] then    begin     k[0] := 0;k[1] := 0;inc(k[2]);    end;   if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] = cost[3]...

Найти наибольший элемент матрицы ​

MOGZ ответил