видоизменить сортировку вставкой. У меня есть такой код:
var
a: array[1..10000] of Word;
i, j, t: LongInt;
begin
for i := 2 to n do begin
t := a[i];

j := 1;
while a[j] < t do
Inc (j);
{
for k := i downto j + 1 do
a[k] := a[k - 1];
}
a[j] := t
end.

Так вот, нужно заменить закомментированную часть кода функцией Move

//Максимально прямой(в значении тупой) код

var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;

if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;

if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.

Пример:
-9 3 6
3

Microsoft Paint — многофункциональный, но в то же время довольно простой в использовании растровый графический редактор компании Microsoft, входящий в состав всех операционных систем Windows, начиная с первых версий. Первая версия Paint появилась в Windows 1.0. В Windows 3.0 был переименован в PaintBrush. Но потом в Windows 95 и поздних версиях Windows он был опять переименован в Paint (однако, программа может вызываться и командой-затычкой pbrush, что есть явное сокращение от Paint Brush). В версии из Windows 3.x и более ранних версиях поддерживались только форматы MSP, BMP, PCX и RLE. В последующих версиях из этих форматов осталась поддержка лишь одного - BMP.

В Windows 95 была введена новая версия Paint. Тот же самый интерфейс продолжает использоваться в следующих версиях Windows. В Windows 98, Windows 2000 и Windows ME изображения могли быть сохранены в форматах GIF и JPEG, если были установлены необходимые графические фильтры от Microsoft (обычно они устанавливались вместе с другими приложениями от Microsoft, такими как Microsoft Office или Microsoft PhotoDraw). Начиная с Windows XP фильтры стали предустановленными, и добавилась поддержка форматов PNG и TIFF. В Windows Vista и Windows 7 полностью изменены иконки.

Windows 7 Править