Подсчи айте в килобайтах количество информации в тексте если текст состоит из 800 символов , а мошьность используемого алшавита-128 символов

0.8 Кб
Подсчитайте,если что

1.

var a:array [1..10] of integer;

i,k:integer;

begin

k:=0;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i]:4);

if a[i] mod 2 = 1 then k:=k+1

end;

writeln;

if k>0 then writeln ('Количество нечетных чисел равно ',k)

else writeln ('Нечетных чисел нет')

end.

2.

var a:array [1..10] of integer;

i,m:integer;

begin

m:=99;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i]:4);

if a[i] < m then m:=a[i]

end;

writeln;

writeln ('min = ',m)

end.

Объяснение:

var a:array [1..10] of integer;

i,k,m:integer;

begin

k:=0;

m:=99;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i]:4);

if a[i] mod 2 = 1 then k:=k+1;

if a[i] < m then m:=a[i]

end;

writeln;

if k>0 then writeln ('Количество нечетных чисел равно ',k)

else writeln ('Нечетных чисел нет');

writeln ('min = ',m)

end.

===== C++ 17 =====

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

   int n = 3;

   int a[3][3] = {{3,-7,12},{14,-5,0},{5,-12,-1}};

   // исходный массив

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

   {

       for(int j = 0; j < n; j++)

           cout << setw(4) << a[i][j];

       cout << endl;

   }    

   // поиск минимального элемента

   int im = 0, min = a[0][0];

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

       for (int j = 0; j < n; j++)

           if (a[i][j] < min)

           {

               min = a[i][j];

               im = i;

           }

   cout << "min = " << min << endl;

   // обмен строк

   int t;

   for (int j = 0; j < n; j++)

   {

       t = a[0][j];

       a[0][j] = a[im][j];

       a[im][j] = t;

   }

   // полученный массив

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

   {

       for(int j = 0; j < n; j++)

           cout << setw(4) << a[i][j];

       cout << endl;

   }

   return 0;

}