Срочно,пожалуйста, помогите!!!

 1.       Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.

2.       Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.

3.       Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.

4.       Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.

интереса ради какой язык?

handsfree - это переключчатель клавиатурного ввода или случайные числа

Псевдокод

очень уж псевдо, но условиям не противоречит

а вот там еще есть ввод массива. а у вас нету

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/i4. 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.