B) Определите количество битов в каждом слове. 1. RODINA2. COMPUTER, 3. INTERNET4. MONITOR5. MODEM.​

Вот решение на C++:

#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;

int main()
{
int n=0;
cout <<"Введите размер массива: ";
cin >>n;
if (n<1)
{
cout <<"Массив не может быть пустым!";
return 1;
}

int a[n];
srand(time(0));
for (int i=0; i<n; i++)
{
int r=rand()%271-100;
a[i]=r;
}

int min=170;
for (int i=0; i<n; i++)
{
if ((a[i]>0) and (a[i]<min)) min=a[i];
}

cout <<"Минимальный положительный элемент иассива: " <<min <<endl;

return 0;
}

1.program z;var a:array [1..10] of integer; i,t:integer; s:real;beginfor i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if (odd(i)) and (odd(a[i])) then begins:=s+a[i];t:=t+1;end;end;writeln;write('Cреднее арифметическое = ',s/t);end.2.program z;var a:array[1..10] of integer; max,i:integer;beginwriteln('Исходный массив');for i:=1 to 10 dobegina[i]:=random(1,100);write(a[i]:4);if a[i]>max then max:=a[i];end;writeln;writeln('Измененный массив');for i:=1 to 10 dobeginif not(odd(a[i])) then a[i]:=max;write(a[i]:4);end;end.