1. массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. 2. найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. размер произвольный. 3. массив а вводится с клавиатуры. найти среднее арифметическое его элементов с нечетными номерами. размер произвольный. 4. массив а вводится с клавиатуры. найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. размер произвольный.

1.a[n]   i = 0; sum = 0;   пока i < n; sum = sum + a[i]   увеличить i на 1. 2.a[n]   i = 0; sum = 0; пока i < n; если a[i] делиться на 3 без остатка, то : (sum = sum + a[i])    увеличить i на 1. 3.a[n]   i = 1; sum = 0;   пока i < n; sum = sum + a[i]   увеличить i на 2. сред. знач. = sum/i 4. a[n]   i = 0; sum = 0; chet =0; nechet = 0; otr =0;   пока i < n; если a[i] < 0, то : (otr = otr * a[i])  если i делиться на 2, то (chet = chet + a[i]) в ином случае nechet = nechet +1    увеличить i на 1. сума четных - chet произведение отрицательных - otr количество нечетніх - nechet 

//pascalabc.net версия 3.3.5.1636 от 10.03.18 //если программа не запускается, то обновите версию const       handsfree = true;       nmax = 100;       random_min = -28;       random_max = 27; var       a: array[1..nmax] of integer;       i, n, j, count: integer;       mini, maxi: integer;       min, max: real;       temp: real;       sum, product, harmonic: real;       k: integer; begin       {ввод массива}       n : = nmax;       if handsfree then               n : = random(nmax - 5) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(random_max - random_min) + random_min;                       write(a[i], ' ');               end               else                       readln(a[i]);       end;       writeln();             {подсчет суммы и произведения и агригатов и кол-ва}       sum : = 0;       product : = 1;       for i : = 1 to n do       begin               sum : = sum + a[i];               if a[i] mod 3 = 0 then {если нужен фильтр}                       product : = product * a[i];       end;       writeln('1) sum = ', sum);       writeln('2) product = ', product);             {подсчет суммы и произведения и агригатов и кол-ва}       sum : = 0;       count : = 0;       for i : = 1 to n do       begin               if i mod 2 = 1 then {если нужен фильтр}               begin                       count : = count + 1;                       sum : = sum + a[i];               end;       end;       writeln('3) average (selected) = ', sum / count);             {подсчет суммы и произведения и агригатов и кол-ва}       sum : = 0;       product : = 1;       count : = 0;       for i : = 1 to n do       begin               if i mod 2 = 0 then {если нужен фильтр}                       sum : = sum + a[i];               if a[i] < 0 then {если нужен фильтр}                       product : = product * a[i];               if a[i] mod 2 = 1 then {если нужен фильтр}                       count : = count + 1;       end;       writeln('4) count = ', count);       writeln('4) sum = ', sum);       writeln('4) product = ', product); end.

Var m: array[1..15] of real;   i: integer;   n: real;   begin  randomize;   for i: =1 to 15 do  begin  m : =random(20)-20;   if( m< 0) then  begin  m: =sqr(m);   end;