Двумерные массивы
Поменять местами максимальные элементы первого и третьего столбцов и минимальные элементы второй и четвертой строки матрицы
|
const n=5;
type matr= array[1..n,1..n] of byte; var A: matr; t,e,i,j: byte; k,min: byte; max: byte; begin Randomize; for i:=1 to n do for j:=1 to n do A[i,j]:= Random(100); for i:=1 to n do begin for j:=1 to n do Write(A[i,j]:5); Writeln; end; Writeln; j:=1; max:= A[1,j];t:=1; for i:=1 to n do if A[i,j]>max then begin max:= A[i,j]; t:=i end; j:=3; max:= A[1,j];e:=1; for i:=1 to n do if A[i,j]>max then begin max:= A[i,j]; e:=i end; k:=A[t,1]; A[t,1]:=A[e,3]; A[e,3]:=k; i:=2; min:= A[i,1];t:=1; for j:=1 to n do if A[i,j]<min then begin min:= A[i,j]; t:=j end; i:=4; min:= A[i,1];e:=1; for j:=1 to n do if A[i,j]<min then begin min:= A[i,j]; e:=j end; k:=A[2,t]; A[2,t]:=A[4,e]; A[4,e]:=k; for i:=1 to n do begin for j:=1 to n do Write(A[i,j]:5); Writeln; end; Readln; end. |
Спасибо огромное !!!!
|
Часовой пояс GMT +4, время: 17:29. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.