Помогите, пожалуйста, составить программу в ПАскаль абс и блок-схему: В заданной целочисленной квадратной матрице заменить нулями минимальные элементы каждой строки
Помогите, пожалуйста, составить программу в ПАскаль абс и блок-схему:
В заданной целочисленной квадратной матрице заменить нулями минимальные элементы каждой строки
Ответ(ы) на вопрос:
Гость
//PascalABC.NET 3.2 сборка 1318
Const
n=3;
m=2;
Var
ma:array[1..n,1..m] of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
min:=integer.MaxValue;
for j:=1 to m do
begin
readln(ma[i,j]);
if ma[i,j]
Не нашли ответ?
Похожие вопросы