Дано два одномерных массива a и b. заменить местами максимальные элементы массивов a и b. использовать процедуру нахождения максимального элемента массива. преобразовать эту программу для двумерного массива.
138
215
Ответы на вопрос:
//pascal abc.net v3.1 сборка 1172 //одномерные const n=10; type ty=array[1..n] of integer; var ara,arb: ty; i,j,max,maxia,maxib: integer; procedure maxs(ar: ty; var max,maxi: integer); var i: integer; begin for i: =1 to n do if max< ara[i] then begin maxi: =i; max: =ar[i]; end; end; begin randomize; max: =-1; writeln('array a: '); for i: =1 to n do begin ara[i]: =random(100); write(ara[i]: 4); end; maxs(ara,max,maxia); writeln; max: =-1; writeln('array b: '); for i: =1 to n do begin arb[i]: =random(100); write(arb[i]: 4); end; maxs(arb,max,maxib); j: =ara[maxia]; ara[maxia]: =arb[maxib]; arb[maxib]: =j; writeln; writeln('final array a: '); for i: =1 to n do write(ara[i]: 4); writeln; writeln('final array b: '); for i: =1 to n do write(arb[i]: 4); end. //двумерные const n=10; type ty=array[1..n,1..n] of integer; var ara,arb: ty; i,j,max,maxia,maxib,maxja,maxjb: integer; procedure maxs(ar: ty; var max,maxi,maxj: integer); var i,j: integer; begin for i: =1 to n do for j: =1 to n do if max< ara[i,j] then begin maxi: =i; maxj: =j; max: =ar[i,j]; end; end; begin randomize; max: =-1; writeln('matrix a: '); for i: =1 to n do begin writeln; for j: =1 to n do begin; ara[i,j]: =random(100); write(ara[i,j]: 4); end; end; maxs(ara,max,maxia,maxja); writeln; max: =-1; writeln('matrix b: '); for i: =1 to n do begin writeln; for j: =1 to n do begin; arb[i,j]: =random(100); write(arb[i,j]: 4); end; end; maxs(arb,max,maxib,maxjb); j: =ara[maxia,maxja]; ara[maxia,maxja]: =arb[maxib,maxjb]; arb[maxib,maxjb]: =j; writeln; writeln('final matrix a: '); for i: =1 to n do begin writeln; for j: =1 to n do write(ara[i,j]: 4); end; writeln; writeln('final matrix b: '); for i: =1 to n do begin writeln; for j: =1 to n do write(arb[i,j]: 4); end; end. пример работы(одномерный): array a: 11 83 41 30 0 23 14 41 93 66array b: 53 40 58 40 56 17 98 33 90 6final array a: 11 83 41 30 0 23 14 41 90 66final array b: 53 40 58 40 56 17 98 33 93 6
Твщ уз3. 2.222 9 это значит 2 б
Объяснение:
Ок ти значит 888 и 259 это 345 а 345 - 302=?
Популярно: Информатика
-
volegorex04.07.2020 13:35
-
Reixerrr06.08.2020 14:33
-
Yrikrylko11.12.2021 19:09
-
ulia11513.03.2021 14:36
-
Томара8502.09.2022 11:22
-
Kazhimyrat021017.12.2020 22:36
-
Vladisimus18.08.2021 18:29
-
VlabaR26505.08.2020 08:26
-
Владаhi30.04.2022 18:03
-
Glupuj22.11.2020 17:17