Знайти суму та середнє арифметичне натуральних чисел, максимальне значення якого не перевищує 10. ​

=

Объяснение:

const

 nmax=100;

type

 Tarr=array[1..nmax] of integer;

var

 a:Tarr;

 i,n:integer;

begin

 randomize;

 repeat

   write('Razmer massiva, ne bolee ',nmax,': ');

   readln(n);

 until n in [1..nmax];

 writeln('Ishodniy massiv:');

 for i:=1 to n do

   begin

     a[i]:=random(50);

     write(a[i]:4);

   end;

 writeln;

 i:=1;

 while (i<=n) and (a[i] mod 5<>0) do

   inc(i);

 if i>n then

   writeln('Net elementov kratyh 5')

 else  

   begin

     a[i]:=0;

     writeln('Poluchenniy massiv:');

     for i:=1 to n do

       write(a[i]:4);

     writeln;

   end;

end.

#include <iostream> 
#include <vector>
#include <algorithm>
using namespace std;

int main()
{
long long n, m, i, j, k;
cin >> n >> m;
vector < long long > plot, mesk;

for (i = 0; i < n; i++)
for (j = 0; j < m; j++)
{
long long x;
cin >> x;
plot.push_back(x);
}
cin >> k;
for (i = 0; i < k; i++)
{
long long x;
cin >> x;
mesk.push_back(x);
}
sort(plot.begin(), plot.end());
sort(mesk.begin(), mesk.end());

k = 0;
i = plot.size() - 1;
j = mesk.size() - 1;
while (i * j > 0)
{
if (plot[i] >= mesk[j])
{
k++;
i--;
j--;
}
else
j--;
}
cout << k << endl;
}