Делал как-то уже похожее. Программа выводить мин. и макс. элемент, если не нужно то можешь удалить из кода i_max uses crt; const Nmax=10; var m:array[1..Nmax] of integer; i,i_min,i_max:byte; min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(-30,30); write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]<min then begin min:=m[i]; i_min:=i; end; end; writeln; writeln('Максимальный элемент: ',max,' Его номер: ',i_max); writeln('Минимальный элемент: ',min,' Его номер: ',i_min); readln; end.
Как следует из названия, функция «Упорядочить» позволяет упорядочивать файлы различными в зависимости от выбранной опции. Эта функция доступна в панели «Библиотека» (Library) во всех библиотеках — «Документы» (Documents), «Музыка» (Music), «Изображения» (Pictures) и «Видео» (Videos). Чтобы увидеть эту панель, нужно зайти непосредственно в библиотеку. Если перейти в библиотеку из папки «C:\Пользователи» (C:\Users), панели в ней не будет.
Функция «Упорядочить» предлагает различные варианты группировки файлов в соответствии с типом контента, хранящегося в библиотеке. При этом разные упорядочения действуют по-разному в зависимости от библиотеки.
Стоит также учитывать, что разные группировки используют разные варианты представления для удобства восприятия. Некоторые переключают текущий вид на «Крупные значки» (Large Icons), другие используют вид «Таблица» (Details). Тем не менее, представление можно самостоятельно изменить на любое другое. Чтобы отменить группировку и восстановить изначальное представление, можно воспользоваться опцией «Очистить изменения» (Clear Changes) в меню «Упорядочить».
uses crt;
const
Nmax=10;
var
m:array[1..Nmax] of integer;
i,i_min,i_max:byte;
min,max:integer;
begin
ClrScr;
randomize;
writeln('Исходный массив:');
for i:=1 to Nmax do begin
m[i]:=random(-30,30);
write(m[i],' ');
end;
max:=m[1];
min:=m[1];
i_min:=1;
i_max:=1;
for i:=1 to Nmax do begin
if m[i]>max then begin
max:=m[i];
i_max:=i;
end;
if m[i]<min then begin
min:=m[i];
i_min:=i;
end;
end;
writeln;
writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
readln;
end.
Функция «Упорядочить» предлагает различные варианты группировки файлов в соответствии с типом контента, хранящегося в библиотеке. При этом разные упорядочения действуют по-разному в зависимости от библиотеки.
Стоит также учитывать, что разные группировки используют разные варианты представления для удобства восприятия. Некоторые переключают текущий вид на «Крупные значки» (Large Icons), другие используют вид «Таблица» (Details). Тем не менее, представление можно самостоятельно изменить на любое другое. Чтобы отменить группировку и восстановить изначальное представление, можно воспользоваться опцией «Очистить изменения» (Clear Changes) в меню «Упорядочить».