Помогите, пожалуйста, составить программу в ПАскаль абс и блок-схему:
В заданной целочисленной квадратной матрице заменить нулями минимальные элементы каждой строки
Ответы
Ответ дал:
0
//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]<min then min:=ma[i,j];
end;
for j:=1 to m do
if ma[i,j]=min then ma[i,j]:=0;
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
end.
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]<min then min:=ma[i,j];
end;
for j:=1 to m do
if ma[i,j]=min then ma[i,j]:=0;
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
end.
Приложения:
Ответ дал:
0
ma - обозначение матрицы. Да, одним из показателей хорошего стиля являются осмысленные названия переменных, но, увы, я не могу пока себя приучить.
Ответ дал:
0
write(ma[i,j]:4); - вывод элемента двумерного массива ma c индексами i и j c отступом в 4 пробела.
Ответ дал:
0
а отступ в 4 пробела обязателен, или если я уберу это :4, программа не заработает?
Ответ дал:
0
Нет, не обязателен, просто числа слипнутся при выводе.
Ответ дал:
0
все понял, огромное спасибо за решение и объяснение
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад