Question

Даны целое число m и матрица размера m×m, элементы которой являются натуральными числами.Составить блок-схему и программу(Паскаля), которые посчитают и напечатают число элементов, кратное 3 над главной диагональю матрицы

Answer 1

Ответ:
Блок схема:
┌───┐

│m,m│

└─┬─┘

│

▼

┌────────────────────┐

│i←1, j←2, count←0 │

│while i│ while j<=m do │

│ if j-i=1 then │

│ j←j+1 │

│ else if mat[i][j]│

│ mod 3=0 │

│ count←count+1 │

│ j←j+1 │

│ i←i+1, j←i+2 │

│print(count) │

└────────────────────┘

Программа:

var

 m, i, j, count: integer;

 mat: array[1..100,1..100] of integer;

begin

 readln(m);

 for i := 1 to m do

   for j := 1 to m do

     readln(mat[i][j]);

 count := 0;

 i := 1;

 j := 2;

 while i < m do

 begin

   while j <= m do

   begin

     if j - i = 1 then

       j := j + 1

     else if mat[i][j] mod 3 = 0 then

       count := count + 1;

     j := j + 1;

   end;

   i := i + 1;

   j := i + 2;

 end;

 writeln(count);

end.