Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами
Паскаль
Целочисленный массив
По одному вхождению максимума и минимума
Если все, то пишите!
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.
Паскаль
Целочисленный массив
По одному вхождению максимума и минимума
Если все, то пишите!
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.