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

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

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

Одномерный массив пользователь вводит размерность массива найти в массиве минимум максимум и поменять их местами

Паскаль

Целочисленный массив

По одному вхождению максимума и минимума

Если все, то пишите!

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] 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.