Водномерном массиве из 10 чисел посчитать количество всех элементов, кратных 7 и сумму остальных элементов

Const
n=10;
Var a: array[1..10] of  integer;     
 i: integer;       
s,k: real;
Begin
k:=0;
s:=0;
For i:=1 to n do     
begin       
write ('Числа = '); readln (a[i]);       
if a[i] mod 7 = 0  then s:=s+1 else k:=a[i]+k;     
end;   
writeln('Кол-во элементов кратных 7 = ',s);  
writeln('Сумма остальных= ',k);
End.

 program z1;
 var n,m:integer;
 rost,nine_a,nine_b:real;
 begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
 read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.

как-то так, будут вопросы пиши)
Всего-то 30 мин

#include <iostream>

using namespace std;

int main()

{

int sum = 0;

int composition = 1;

bool plusSeq = 1;

int n = 0;

cout << "Size array - ";

cin >> n;

int* a = new int[n];

for (int i = 0; i < n; i++)

{

 a[i] = -10 + rand() % 21;

 sum += a[i];

 composition *= a[i];

 cout << a[i] << "  ";

}

 

for (int i = 0; i < n; i++)

{

 if (a[i] < 0)

  a[i] *= a[i];

}

for (int i = 1; i < n; i++)

{

 if (a[i] < a[i - 1])

 {

  plusSeq = 0;

  break;

 }

}

if (plusSeq)

 cout << "\nSum = " << sum;

else

 cout << "\nComposition = " << composition;

delete[]a;

return 0;

}

Объяснение: