Question

найти минимальный элемент массива х(1..10) и максимальный элемент массива.поменять их местами и вывод результирующего массива на экран

Answer 1

max:=a[1];

for i:=2 to 10 do

begin 

if a[i]>max then

max:=a[i]; 

c:=i; 

 end;

min:=a[1];

for i:=2 to 10 do

begin

if a[i]<min then

min:= a[i];

d:=i;

end;

a[c]:=x;

a[c]:=a[d];

a[d]:=x; 

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню 

Answer 2

type array100 = array [1..100] of integer;
var x,y:array100;
i,n,min,max:integer;

Begin
  randomize;
  n:=10;
  for i:= 1 to n do begin
    x[i]:=random(n*10)- 10*n div 2 ;
    write(x[i]:4);
    if i mod 10=0 then writeln;
  end;
 
  min:=1;
  max:=1;
  for i:= 1 to n do begin
    if x[i]<x[min] then min:=i;
    if x[i]>x[max] then max:=i;
  end;
  i:=x[min];
  x[min]:=x[max];
  x[max]:=i;
    
  writeln;
  for i:= 1 to n do begin
    write(x[i]:4);
    if i mod 10=0 then writeln;
  end;
 
End.