Найти сумму положительных, произведение и количество отрицательных из 10 введенных целых значений

#include <iostream>

using namespace std;

int main() {

//###1

char a[10] = {'a','b','c','d','e','f','g','h','i','j'};//Заранее составленный массив  

for (int i = 0; i < 10; i++) //Цикл с переменной счетчиком

 cout << a[i]<<endl;//Вывод на экран всех элементов массива

//###2

for (int i = 0, j = 0; i < 10; i++, j += 3) {//Цикл с переменной счетчиком

 cout << a[i] << endl;//Вывод на экран всех элементов массива

 if(j<10) cout << a[j] << endl;//Вывод на экран элементов c индексами 0,3,6,9

}

}

Объяснение:

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.