1) заполнить массив a, состоящий из n (1< =n< =10000) элементов случайными целыми числами в диапазоне [-10^9..+10^9]. 2) отсортировать массив a в порядке неубывания элементов.

//прога на pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint; beginpz: =a; a: =b; b: =pz; end;   procedure selectsort (rm : longint; var sortmas: array of longint); vari, j, min: longint; begin        for i: =0 to rm-2 dobeginmin: =i; for j: =i to rm-1 doif sortmas[min]> sortmas[j] then min: =j;           if i< > min then zam (sortmas[i], sortmas[min]); end; end; // beginrandomize; readln (n); setlength (a, n); for i: =0 to n-1 doa[i]: =random (2*1000000000) - 1000000000; writeln (a); selectsort (n, a); writeln (a); end.

Var a: array[1..10] of integer; i: integer; begin for i: =1 to 10 do a[i]: =random(10)+1; writeln ('исходный массив'); for i: =1 to 10 do begin write (a[i], ' '); end; writeln; writeln ('есть ли в массиве элемент, равный 5? '); if a[i]=5 then write ('да') else write ('нет') end. 

31241223 (но это не точно)

1 способным передовать информацию только один больше не знаю извени

Рассматриваются значения массива с индексами от 1 до 8.
Если его значение больше минус двух (-2), то прибавляем единицу (1) к переменной k, изначально равной нулю (0).
Просмотрим все значения (от 1 до 8):
R[1] = -12 > -2? Условие не выполняется, k остаётся прежним.
R[2] = -3 > -2? Условие не выполняется, k остаётся прежним.
R[3] = -5 > -2? Условие не выполняется, k остаётся прежним.
R[4] = -6 > -2? Условие не выполняется, k остаётся прежним.
R[5] = 4 > -2? Условие выполняется, k = k + 1 = 0 + 1 = 1
R[6] = 9 > -2? Условие выполняется, k = k + 1 = 1 + 1 = 2
R[7] = 0 > -2? Условие выполняется, k = k + 1 = 2 + 1 = 3
R[8] = 8 > -2? Условие выполняется, k = k + 1 = 3 + 1 = 4

Ответ: 4.