Честно скажу, что я в этом не спец., но на примере другой матрицы решу) Решайте по-моему примеру и тогда сами научитесь:)
Вот матрица: 1 2 3 4 5 6 0 1 2 3 4 5 0 0 1 2 3 4
Код паскаль: uses crt; var c :array [ 1..50 ,1..50 ] of integer; i ,q, n,m:integer; begin i:= 1; writeln('введи размер матрицы); read (n,m ); for q :=1 to m do c[i ,q]:= q; for i :=2 to n do for q :=1 to m do if qc[i ,q]:= 0 else c[i ,q]:= q-i 1 ; for i :=1 to n do begin writeln; for q :=1 to m do write (c[ i,q], ' '); end; readln ;
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
