Помогите, пожалуйста, составить программу в ПАскаль абс и блок-схему: В заданной...

Question

Помогите, пожалуйста, составить программу в ПАскаль абс и блок-схему:
В заданной целочисленной квадратной матрице заменить нулями минимальные элементы каждой строки

Answer 1

//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]    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.

---

Comments

Эх, все-таки никак не могут до ума довести эти программы для рисования блок-схем... (((

---

что означает "ma" в цикле?

---

точнее что означает этот фрагмент : write(ma[i,j]:4); ?

---

ma - обозначение матрицы. Да, одним из показателей хорошего стиля являются осмысленные названия переменных, но, увы, я не могу пока себя приучить.

---

write(ma[i,j]:4); - вывод элемента двумерного массива ma c индексами i и j c отступом в 4 пробела.

---

а отступ в 4 пробела обязателен, или если я уберу это :4, программа не заработает?

---

Нет, не обязателен, просто числа слипнутся при выводе.

---

все понял, огромное спасибо за решение и объяснение