В. "гвоздики" на прямой дощечке вбиты гвоздики. любые два гвоздика можно соединить ниточкой. требуется соединить какие-то пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя бы одна ниточка, а суммарная длина всех ниточек была минимальна. формат входного файла в первой строке входного файла input. in записано число n – количество гвоздиков (2 ≤ n ≤ 100 в следующей строке записано n чисел -координаты всех гвоздиков (неотрицательные целые числа, не превосходящие 10000). формат выходного файла в выходной файл output. out нужно вывести единственное число -минимальную суммарную длину всех ниточек. примеры: input. in output. out 5 4 10 0 12 2 6

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin       var n : = readinteger('n =');       var a : = readarrinteger('массив', n);       a.sort; //      println(a);             var b : = arrfill(n + 1, 0);       b[0] : = 0;           b[1] : = maxint;           for var i : = 2 to n do               b[i] : = min(b[i - 1], b[i - 2]) + abs(a[i - 1] - a[i - 2]);         //      println(b);       writeln(b[n]); end.

program massiv;

uses crt;

const n=10 {размер массива} 

var i,k: integer;

        a: array[1..n] of integer;

begin

      clrscr;

      write('введите элементы массива: ' );

      k: =1  

      for i: =1 to n do

            begin

                  readln (a[i]);

                  if (a[i]< 0) and (a[i] mod 7)=0 then k: =k*a[i];

            end;

writeln;    

write('исходный массив: ') 

 

for i: =1 to n do   write(a[i]: 3);        

 

  writeln;

writeln('произведение отрицательных элементов кратных 7: ',k);

 

  readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

так как неуказан язык программирования пишу алгоритм

1)открываем поток для чтения файла f , нам еще потребуется переменная назовем ее count (тип дробных чисел в каждом языке по разному) и переменную допустим value (тоже дробное) далее проход по файлу любым циклом до конца файла и условие если value = дробь то count   = count +1 и в конце выводим count в файл g

2)открываем поток для чтения файла f , и две переменные max и min и массив кол-во элементов которого равно кол-ву чисел в файле (считаем любой функцией ) далее сортируем массив по возрастанию и получиться max = последний элемент массива ;

min = первый элемент массива . далее выводим min и max в файл g

3)аналогично 4 только вместо записи их в массив просто задаете переменную которая будет увеличиваться если число четное . 

 

4)открываем поток для чтения файла f , потребуется массив равный кол-ву четных элементов файла на четность можно проверить если остаток от деления числа на 2 =0 то

число четное , далее просто заполняем массив из файла четными точно такой же проверкой и выводим в файл g . но еще лучше использовать динамический массив тогда проход по файлу будет равен 1 

5)все просто открываешь первый файл для чтение считаешь кол-во элементов , 

создаешь массив, кол-во элементов которого = твой подсчет , заполняешь его из файла ,далее соритруешь по возрастанию , и выводишь этот массив в файл 2 , опять же можешь использовать динамические массивы и облегчить себе жизнь