Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дан массив размера N. Поменять местами его минимальный и максимальный элементы. (На языке Паскаль)

Ответ оставил Гость

Program al;
  var
  a: array[1..32000] of integer;
  buf:integer; 
 i,n,min,max:integer;begin 
  writeln(n=); 
 readln(n); 
 writeln(vvedite massiv=); 
 for i := 1 to n do 
 readln(a[i]); 
 min:=1;
  max:=1;
  for i:=2 to n do   
 begin 
    if a[min]>a[i] then   
    min:=i;   
   if a[max]       max:=i; 
   end; 
buf:=a[min]; 
a[min]:=a[max]; 
a[max]:=buf; 
 writeln(Massiv posle obmena max<->min); 
 for i:=1 to n do   
 write(a[i]:4);
  writeln; 
end.