Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива - Pascal ABC

Формулировка задачи:

Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива. Массив вывести в виде таблицы. Программу оформить в виде процедуры.

Код к задаче: «Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива - 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.

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ