напишіть програму, використовуючи оператор for . вводяться 20 цілих чисел. знайти їхню суму та добуток, а також кількість парних. pascal​

#include <iostream>
#include <vector>
#include<windows.h>
using namespace std;
char bufRus[256];

char* Rus(const char* text) {

CharToOem(text, bufRus);
return bufRus;
}

int main()
{
vector<int> m;//объявили динамический массив
int n,count,sum;
count=sum=0;
cout<<Rus("Введите количество элементов массива:");

cin>>n;
for(int i=0;i<n;i++)
{ cout<<"m["<<i+1<<"]";
int temp;
cin>>temp;
if (temp>7){count++;sum+=temp;}
m.push_back(temp);
}
cout<<Rus("Количество элементов: ")<<count<<endl;
cout<<Rus("Сумма элементов: ")<<sum;
cin>>n;
return 0;
}

Как видите, всё просто)

program Z1;

var

 ch, s: integer;

begin

 writeln('введите последовательность натуральных чисел, оканчивающихся 0');

 readln(ch);

 s := 0;

 while ch <> 0 do

 begin

   if odd(ch) and (ch mod 10 = 3) then

     s := s + 1;

   readln(ch);

 end;

 writeln('s = ', s);

end.

*****************************************************

var

 max, ch: integer;

begin

 writeln(' введите последовательность натуральных чисел, оканчивающихся 0');

 readln(ch);

 max := ch;

 while ch <> 0 do

 begin

   if (ch > max) and (ch <> 0) then

     max := ch;

   readln(ch);

 end;

 writeln('max =', max);

end.