В программе описан двумерный массив A следующим образом const N=5; M=6; Type ARR=array[1..N,1..M] of integer; var A: ARR;
Определить, как изменится в программе массив в результате вызова процедуры PAR(A). procedure PAR(var A:ARR): var I,J,MAXA,MINA,MAXI,MINI,B: integer; begin MAXA:=A[1,1]; MINA:=A[1,1]; MAXI:=1; MINI:=1; for I:=1 to N do for J:=1 to M do if A[I,J]>MAXA then begin MAXA:=A[I,J]; MAXI:=I end else if A[I,J] begin MINA:=A[I,J]; MINI:=I end; if MAXIMINI then for J:=1 to M do begin B:=A[MAXI,J]; A[MAXI,J]:=A[MINI,J]; A[MINI,J]:=B end end;
ВОТ ЧТО ПОЛУЧИТСЯ begin B:=A[MAXI,J]; A[MAXI,J]:= PAR(var A:ARR):
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
