поменять в массиве максимум и минимум, если максимум встречается раньше, чем минимум
помогите, пожалуйста (((очень нужно

максимум должен встречаться раньше.чем минимум

..

??

В одномерном массиве поменять местами минимальный и максимальный элементы. Все элементы большие 4 заменить числом 4. Посчитать количество таких элементов.

const n=10;var A : Array [1..10] of integer;i, mini, maxi, min,max, c,k: integer;beginfor i := 1 to n dobeginA[i] := random(10);write(' ',A[i]);end;maxi:=1;mini:=1;For i:=1 to n do beginmin:=A[1];If A[i]>max then beginmax:=A[i];maxi:=i;end;If A[i]<min then beginmin:=A[i];mini:=i;end;c:=A[maxi];A[maxi]:=A[mini];A[mini]:=c;end;Writeln;for i:=1 to n dobeginWrite(' ',a[i]);end;Writeln;for i:=1 to n dobeginIf a[i]>4 thenbegina[i]:=4;inc(k);end;Write(' ',a[i]

Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местамиПаскальЦелочисленный массивПо одному вхождению максимума и минимумаЕсли все, то пишите!var n,imax,imin,i,r:integer; a:array[1..100] of integer;begin write('n= '); readln(n); for i:=1 to n do read(a[i]); writeln('Table:'); imax:=1; imin:=1; for i:=1 to n do begin write(a[i]:8); if a[imax]<a[i] then imax:=i; if a[imin]>a[i] then imin:=i end; r:=a[imax]; a[imax]:=a[imin]; a[imin]:=r; writeln; writeln('New table:'); for i:=1 to n do write(a[i]:8);end.