классы в паскале

Ответ от Li-Gru[активный]
создаешь цикл с обходом масива и сравниваешь числа...

Ответ от Кукушкин Валерий[гуру]
program arrl;var a:array [1..20] of integer; min:integer; {минимальное число} minindex:integer; {его позиция}buf:integer; {для обмена значений}i:integer;begin min:=32000; randomize; for i:=1 to 20 do begin a:=ra

Ответ от ---[гуру]
***imin:=1;min:=a [ 1 ];for i:=1 to 20 do if (a [ i ] < min) then beginimin:=i;min:= a [ i ];end;for i:=imin to 20 doa [ i ]:= a[ i+1 ] ;a [ 20 ] := min;***

Ответ от Ўрик[гуру]
program example1;uses crt;const n=5;var x: array[1..n] of integer; i,vp,min,imin:integer;begin clrscr; writeln('Введите элементы массива '); for i:=1 to n do begin write('X[',i,'] = '); readln(x[ i ]); e

Ответ от Максимова Оксана[активный]
Тут есть варианты. Можно просто отсортировать этот массив (например, методом "пузырька") по убыванию. При этом наименьший элемент окажется на последнем месте.Program sort;Const N=10;Var A: Array[1..N] of real; B:real; i,j: integer;

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]