Задан массив размером 30 элементов.подсчитать число и сумму положительных элементов в нем, в паскаль.через рандом

const max=30;

var c: array[1..max,1..max] of integer;

m,n,i,j,p,k,s: integer;

begin

randomize;

repeat

write('количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('исходная матрица');

for i: =1 to m do

begin

for j: =1 to n do

begin

c[i,j]: =-10+random(21);

write(c[i,j]: 4);

end;

writeln;

end;

write('p=');

readln(p);

k: =0;

for i: =1 to m do

begin

s: =0;

for j: =1 to n do

if c[i,j]> 0 then s: =s+c[i,j];

if s> p then k: =k+1;

end;

write('количество строк по условию=',k)

end.

program array_k;

var k, n: integer;

var a: array[1..15, 1..15] of integer;

begin

writeln('Задайте порядок матрицы n (0 < n < 15)');

readln(n);

writeln('Задайте число k (0 < k < n)');

readln(k);

for m: integer := 1 to n do

begin

writeln;

for o: integer :=1 to n do

begin

a[m, o] := random(30) + 1;

//+1 - чтобы избежать деления на ноль

write(a[m, o] : 5, ' ')

end

end;

writeln;

for m: integer := 1 to n do

begin

writeln;

for o: integer := 1 to n do

if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')

else write(a[m, o] : 5, ' ');

end

end. 

Алфавит содержит 32 буквы. Какое количество информации несет одна буква?

     

Дано:

Мощность алфавита N = 32

Какое количество информации несет одна буква?

1. 32 = 2 5, значит вес одного символа b = 5 бит.

ответ: одна буква несет 5 бит информации

   

Дано:

Мощность алфавита N = 16

текст состоит из 10 символов

Определить объем информации в битах.

1. 16 = 2 4, значит вес одного символа b = 4 бита.

2. Всего символов 10, значит объем информации 10 * 4 = 40 бит.

ответ: сообщение несет 40 бит информации (8 байт)

формационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?

     

Дано:

Объем сообщения = 300 бит

текст состоит из 100 символов

Какова мощность алфавита?

1. Определим вес одного символа: 300 / 100 = 3 бита.

2. Мощность алфавита определяем по формуле: 2 3 = 8.

ответ: мощность алфавита N = 8.

Объяснение:

Ну вроде так

Можно лучший ответ?