Begin WriteLn('Введите массив'); For i:= 1 to 10 do Begin Read(A[i]); End; m:=10; For i:= 9 downto 1 do if A[i]>=A[m] then m:=i; For i:= 10 downto 1 do if A[i]<0 then Begin o:=i; Break End; if o = 0 then WriteLn('Отрицательных чисел нет!') else Begin i:=A[o]; A[o]:=A[m]; A[m]:=i; For i:= 1 to 10 do Write(A[i],' ') End; End.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
A:array[1..10] of integer;
i,m,o:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 10 do
Begin
Read(A[i]);
End;
m:=10;
For i:= 9 downto 1 do
if A[i]>=A[m] then m:=i;
For i:= 10 downto 1 do
if A[i]<0 then
Begin
o:=i;
Break
End;
if o = 0 then WriteLn('Отрицательных чисел нет!')
else
Begin
i:=A[o];
A[o]:=A[m];
A[m]:=i;
For i:= 1 to 10 do
Write(A[i],' ')
End;
End.