Помогите решить что-нибудь из этого) Массивы... заранее спасибо)

const size = 10;var a : array[1..size] of integer; i, SummN, Pr, Count: integer; {SummN - сумма нечетных элементов Pr - произведение элементов стоящих на четных местах Count - количество отрицательных элементов}begin randomize; SummN := 0; установка начальных значений Pr := 1; Count := 0; write('Исходный массив: '); for i := 1 to size do begin a[i] := random(56) - 5; write(a[i], ' '); {вывод элемента массива} if a[i] mod 2 = 1 then {проверка нечетный ли элемент массива} SummN := SummN + a[i]; if i mod 2 = 0 then {проверка четная ли позиция} Pr := Pr * a[i]; if a[i] < 0 then {проверка неотрицательный ли элемент} inc(Count); end; writeln; {вывод результата} writeln('Сумма нечетных элементов - ', SummN); writeln('Произведение эелементов стоящих на четных местах - ', Pr); writeln('Количество отрицательных элементов ', Count);

readln;end.

//Вторая программаconst size = 6;var c:array[1..size] of char; i, count:integer;// count - количество запятых begin count := 0; for i := 1 to size do begin write('c[', i, '] = '); readln(c[i]); считываем массив if (c[i] >='a') and (c[i] <= 'z') then {проверяем маленькая ли латинская буква} c[i] := Chr(ord(c[i]) - 32); {меняем на большую букву} if (c[i] >= 'а') and (c[i] <= 'я') then {проверяем маленькая ли русская буква c[i] := Chr(ord(c[i]) - 32); меняем на большую букву} if c[i] = ',' then inc(count); end;

writeln; {вывод результата} writeln('Результат:'); for i := 1 to size do begin writeln('c[', i, '] = ', c[i]); end; writeln('Количество запятых ', count);end.

//Третья программаconst size = 10;var a : array[1..size] of integer; i, Summ,Pr, Count: integer; {Summ - сумма положительных элементов стоящих на четных местах Pr - произведение элементов стоящих на нечетных местах и кратных 3 count - количество двузначных чисел}begin randomize; Summ := 0; Pr := 1; Count := 0; write(''); for i := 1 to size do begin a[i] := random(601) - 100; write(a[i], ' ');

if (i mod 2 = 0) and (a[i] > 0) then Summ := Summ + a[i]; if (i mod 2 = 1) and (a[i] mod 3 = 0) then Pr := Pr * a[i]; if (a[i] div 10 <> 0) and (a[i] div 100 = 0) then inc(Count); end;

writeln; writeln('Сумма положительных элементов стоящих на четных местах ', Summ); writeln('Произведение элементов стоящих на нечетных местах и кратных 3  ', Pr); writeln('Количество двузначных чисел  ', Count);

readln;end.