Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива - Pascal ABC
Формулировка задачи:
Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива. Массив вывести в виде таблицы. Программу оформить в виде процедуры.
Решение задачи: «Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива»
textual
Листинг программы
procedure zamena; const n=3;m=5; type mas=array[1..n,1..m] of integer; var a:mas; i,j:integer; procedure vv_mas(var x:mas;s:string;f:boolean;var mi,mj:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to m do begin if f then x[i,j]:=random(100); if (i=1)and(j=1) then begin mi:=i;mj:=j end else if x[i,j]>x[mi,mj] then begin mi:=i;mj:=j end; write(x[i,j]:4) end; writeln end end; procedure zam(var x:mas;i,j:integer); var t:integer; begin t:=x[i,j]; x[i,j]:=x[1,2]; x[1,2]:=t end; begin vv_mas(a,'A:',true,i,j); writeln('максимальный: a[',i,',',j,'] = ',a[i,j]); writeln('его замена со вторым элементом первой строки массива:'); zam(a,i,j); vv_mas(a,'A'':',false,i,j); end; begin zamena end.
Объяснение кода листинга программы
- В процедуре
vv_mas
объявлены переменныеi
,j
,mi
иmj
. Переменныеi
иj
используются для итерации по массивуx
, а переменныеmi
иmj
используются для хранения минимального и максимального индексов соответственно. - В процедуре
vv_mas
используется циклfor
для итерации по каждому элементу массиваx
. Внутри цикла проверяется условиеf
, которое указывает, является ли текущий элемент случайным числом. Если это так, то значение элемента присваивается переменнойt
. - Если условие
f
не выполняется, то значение элемента сравнивается с значением элемента с индексамиmi
иmj
. Если текущий элемент больше, то значенияmi
иmj
обновляются. - После завершения цикла
for
значение переменнойt
записывается в элемент с индексамиi
иj
. - Затем вызывается процедура
zam
, которая меняет значение элемента с индексамиi
иj
на значениеt
. - После этого вызывается процедура
vv_mas
снова, но уже с параметрами'A'
: иfalse
для проверки, является ли текущий элемент случайным числом. - В конце программы выводится сообщение о максимальном элементе и его замене.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д