Одномерные и двухмерные массивы
Дан массив А(10). Найти максимальный элемент массива, упорядочить элементы, следующие за ним по убыванию.
- А двумерные массивы тут при чем? от sadovoya, 12 февраля 2014 года
Код:
imax:=1;
maxx:=a[1];
for i:=2 to 10 do
if a[i]>maxx then
begin
imax:=i;
maxx:=a[i];
end;
for i:=imax+1 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
h:=a[i];
a[i]:=a[j];
a[j]:=h;
end;
maxx:=a[1];
for i:=2 to 10 do
if a[i]>maxx then
begin
imax:=i;
maxx:=a[i];
end;
for i:=imax+1 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
h:=a[i];
a[i]:=a[j];
a[j]:=h;
end;