Массивы алгоритм вставки и удаление из массива. добрые люди! в произвольном массиве a,состоящем из целых чисел,принадлежащих промежутку [-50; 50].утроить элементы,стоящие на четырех местах.вывести на экран исходный и полученный массивы.вычислить сумму элементов исходного массива. дан вещественный массив a(n).отсортировать его таким образом,чтобы все положительные числа находились в начале,а отрицательные в конце массива и был сохранен порядок следования элементов в обеих группах.дан целочисленный массив x(20),элементами которого являются случайны числа из диапазона [-10.10].вставить число 50 после каждого нулевого элемента. с алгоритма элементов вставки и удаление элемента с массива. большое .

На второе : program sortarray; var   arraya: array[1..50] of real;   bufr: real;   n,ci,cii,stot,most: byte; begin   readln(n);   for ci: =1 to n do readln(arraya[ci]);   for ci: =1 to n-1 do     begin     most: =0;     for cii: =ci to n do     if (arraya[cii]> =0) and ((arraya[cii]< arraya[most]) or (most=0)) then most: =cii;       if most< > 0 then     begin       bufr: =arraya[ci];   arraya[ci]: =arraya[most]; arraya[most]: =bufr;         end        else     begin       stot: =ci; break;     end;     end; for ci: =1 to n-stot do   begin     most: =stot+ci-1;     for cii: =stot+ci to n do     if arraya[cii]> arraya[most] then most: =cii;     bufr: =arraya[stot+ci-1]; arraya[stot+ci-1]: =arraya[most]; arraya[most]: =bufr;     end; writeln;   for ci: =1 to n do writeln(arraya[ci]: 0: 3); readln; end.

ответ под номером 1

Объяснение:

я тебе не как не смогу их скинуть а онлайн мектеп