Заполните массив случайными числами в интервале [0; 100] и найдите среднее арифметическое его значений

#include < iostream>

#include < ctime>

#include < cstdlib>

using namespace std;

int main()

{    srand(time(null));

      const int n(10);

      int a[n], c(0), b(100), count(0);

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

              a[i]=c+rand()% (b-c+1);

                count+=a[i];

                    }

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

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

      }

cout < < count/float(n);

      return 0;

}

египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).

итог - гласные звуки в письме не использовались.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.