Система ASCII=8 бит на символ
Итого в слове информация 10 букв на каждую по 8 бит=80 бит
#include <iostream>
#include <string>
#include <time.h>
using namespace std;
void main()
{
<span> srand(time(NULL));
</span><span> int n,k=0,k1=4;</span><span>
cin >> n;</span><span> //вводишь количество символов
string *s=new string [n];</span><span>
for (int i = 0;i < n;++i)
</span><span> {
</span><span> while (k == k1)</span><span>
{
</span><span> k = rand() % 3;
</span><span> }</span><span>
switch (k)</span><span>
{
</span><span> case 0:s[i] = '0';cout << s[i];break;
</span><span> case 1:s[i] ='1';cout << s[i];break;</span><span> //вместо 0,1,2 пишешь свой алфавит .
case 2:s[i] ='2';cout << s[i];break;</span><span>
}</span><span>
k1 = k;</span><span>
}</span>
<span> system("pause");
</span><span>}</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>