Программу дала училка условия немного тупы хотя бы с 1 написать 2 программы на языке паскаль 1) массив чисел a1, упорядочить так, чтобы положительные и отрицательные числа чередовались, учитывая что их количество одинаковое.
2) 1: реализовать процесс полного построения алгоритма для , выполняющей следующие операции: • ввод с клавиатуры числовой последовательности (одномерного массива); • сортировка последовательности по возрастанию
(убыванию) указанным методом; • поиск заданного элемента в последовательности (по вариантам) цель поиска данных: - варианты 19 – поиск ключевого (заданного) элемента; сортировку данных реализовать: - варианты 1, 9 - алгоритмом
хоара в форме программы отобразить поля вывода с пояснениями для следующих данных программы: исходная последовательность; отсортированная последовательность; ключевой элемент для поиска для вариантов 1, 3, 6, 9; результат
поиска

1. const   n=30; var   a,b: array[1..n] of integer;   i,j,k: integer; begin   { самое сложное - создать такой массив,       где положительные и отрицательные элементы будут случайно       перемешаны и их будет по n/2.       если организовать ввод с клавиатуры, то это гораздо проще.   }   randomize;   { инициализация "флажком" - значением 1000 }   for i: =1 to n do a[i]: =1000;   { сначала генерируем n/2 случайных отрицательных на случайных местах }   for i: =1 to (n div 2) do   begin       k: =random(50)-50; { случайное отрицательное значение }       { а теперь ищем случайное свободное место }       repeat           j: =random(30)+1       until a[j]=1000;       a[j]: =k   end;   { теперь осталось сгенерировать n/2 случайных положительных чисел       и разместить их на свободных местах }   for i: =1 to (n div 2) do   begin       k: =random(50)+1; { случайное положительное значение }       { а теперь ищем свободное место }       j: =0;       repeat           inc(j)       until a[j]=1000;       a[j]: =k   end;   { и только отсюда начинается собственно }   writeln('исходный массив');   for i: =1 to n do write(a[i]: 4);   writeln;   { j - количество обработанных отрицательных,       k - количество положительных,       а массив строим так, что отрицательные элементы на нечетных местах }   if a[1]< 0 then begin b[1]: =a[1]; j: =1; k: =0 end   else begin b[2]: =a[1]; j: =0; k: =1 end;   for i: =2 to n do       if a[i]< 0 then       begin inc(j); b[2*j-1]: =a[i] end       else begin inc(k); b[2*k]: =a[i] end;   writeln('результирующий массив');   for i: =1 to n do write(b[i]: 4);   writeln end. тестовое решение: исходный массив   43  44  34  21  14 -26  32  35 -25  -8  42 -35 -37  12  45 -25  31    8 -16  -5    8 -25 -19 -15 -27 -16  12  26 -14 -41 результирующий массив   -26  43 -25  44  -8  34 -35  21 -37  14 -25  32 -16  35  -5  42 -25  12 -19  45 -15  31 -27    8 -16    8 -14  12 -41  26

Var  a,b,c,mx: integer;  p: real;begin  readln (a,b,c);  mx:=a;  if mx<b then mx:=b;  if mx<c then mx:=c;  p:=(a*b*c)/mx;  write(p);end.  

Апрпарапрапрпарпрапарпарапрпараарпарапрапрапапрапарпапрарпарап

#include <iostream>
using namespace std;

int main() {
    const int n=5;
    int p[n][n];
    srand(time(NULL));
    cout << "Матрица: ";
    for(int i = 0; i < n; i++){
    for(int j = 0; j < n; j++){
    p[i][j]=rand() % 50;
    cout << p[i][j] << " ";
    }
    cout << " ";
    }
    int max = p[2][0], jmax=0;
    for(int j = 1;  j<n; j++)
        if (p[2][j]>max) {
        max = p[2][j]; jmax = j;
        }
    cout << "max = p[3,"<<jmax+1<<"] = "<<p[2][jmax]<<" ";
}

Пример:
Матрица:
33 28 18 49 22
9 43 6 18 37
2 25 8 36 21
29 6 1 35 5
46 23 42 27 46
max = p[3,4] = 36