Решить в c++ дан одномерный массив x1, . подсчитать количество и сумму всех элементов массива, кратных 5.

#include <iostream>

using namespace std;

int main(){

   int n, count = 0, suma = 0;

   cout<<"Vvesti kolichestvo elementow massiva\n";

   cin>>n;

   int arr[n];

   cout<<"Vvesti elementy massiva\n";

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

       cin>>arr[i];

   }

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

       if (arr[i]%5==0){

           count ++;

           suma += arr[i];

       }

   }

   cout<<"Kolichestvo elementov kratnyh 5 = "<<count<<endl;

   cout<<"Summa elementov kratnyh 5 = "<<suma<<endl;

}

Объяснение:

Создаем переменную n которая будет определять количество элементов в массиве.  Потом объявляем переменные count(подсчет элементов кратным 5) и suma(аналогично).

Вводим количество элементов массива и заполняем сам массив.

Далее идет цикл и в нем условие "Если элемент массива при делении на 5 дает остаток 0(то есть число кратное 5) то..."

В условии к count добавляем 1 элемент каждый раз, когда условие правдиво.

К суме добавляем сам элемент, в том же случае.

Ну и выводим эти переменные

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i; i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.