1) перепишите программу в тетрадь var a: array[1..200] of integer; i, n, p, k: integer; begin p: =20; n: =0; randomize; for i: 1 to 200 do a[i]: =random(100)-50; for i: =1 to 200 do write(a[i], ' '); writeln; for i: =1 to 200 do if a[i]=p then begin writeln('a[', i, ']=', a[i]); n: =n+1; end; writeln; writeln(n); end. 2) напишите программу в pascalabc. 3) ответьте письменно на вопросы. запишите ответы в тетрадь. 3.1. сколько элементов в массиве? 3.2. какой фрагмент программы отвечает за запись элементов массива в памяти компьютера? 3.3. в каких пределах целых чисел могут находиться элементы массива? 3.4. для чего в операторе вывода напечатано ' '? 4) ответьте письменно на вопросы. записать ответы в тетрадь. 4.1. что программа выводит на экран оператором writeln('a[', i, ']=', a[i]); ? 4.2. для чего нужна переменная n? 4.3. какая переменная лишняя? 4.4. что программа выводит на экран оператором writeln(n); ? 5) измените код программы так, чтобы программа находила и считала количество элементов равных 0 среди 300 элементов целочисленного массива, значение которого расположены между -20 и 20. написать программу в pascalabc.

3.1. 200

3.2. for i:1 to 200 do  a[i]:=random(100)-50;

3.3.  (т.к 4 байта)

либо -50 ... 50 (рандом)

3.4. Чтобы значения не "склеивались", т.к было расстояние между элементами

4.1. a[номер элемента] = значение элемента "перенос строки"

4.2. Для подсчета количества элементов равных 20

4.3.  k - она объявлена, но не используется

4.4.  Количество элементов равных 20

5.

var

a:array[1..300] of integer;

i,n,p,k: integer;

begin

p:=0;

n:=0;

randomize;

for i:1 to 300 do

a[i]:=random(40)-20;

for i:=1 to 300 do

write(a[i],' ');

writeln;

for i:=1 to 300 do

if a[i]=p then

begin

writeln('a[',i,']=',a[i]);

n:=n+1;

end;

writeln;

writeln(n);

end.

ꟷꟷꟷꟷꟷꟷ      

Не забывайте сказать " "! и, если ответ удовлетворил, то выберите его как "Лучший"    

Бодрого настроения и добра!        

Успехов в учебе!

Для решения подобных заданий, нужно перевести данные цифры в маске и узле в двоичную с.с. и сделать поразрядную коньюнкцию(логическое умножение). 255(10) равно 111 111 11(2) значит, любое число при умножении на это, даст себя же, т.к. при умножении 1 на 0 будет 0, значит первые 2 цифры остануться теми же 224.23, а вот 240 и 251 нужно перевести в двоичнцю с.с. и посчитать. 240(10) это 11 110 000(2), а 251(10) равно 11 111 011, вместе они дадут 11 110 000(2), переводим это число в 10 с.с. это будет 240. При умножении на 0 будет 0,поэтому в конце 0 остаеться. В итоге у нас получилось:224.23.240.0 ответ:DFBH

Задание 1.

3 кбайта= 3*1024*8=24576 бит

1 мбайт = 1*1024*8=8196 байт

4096 бит =4096\8\1024= 0.5 кбайта

2.5 мбайт=2.5*1024=2560 кбайт

Задача 2.

k-120 символов

N(мощность алфавита) = 512=> i=9 бит

I=k*i

I=120*9=1080 бит

Задача 3.

I=2 кб

k=4096 символов

N=2^i        I=k*i                i= 2*1024*8/4096=4

2^4=16 - ответ

Задача 4.

Племя мульти:

N=64 => i=6 бит

Значит 150*6=900 бит          

Племя пульти:                                

N=512 =>i=9 бит

Значит 50*9=450 бит

Задача 5.

I=8 кб

N=16 => i=4

k-?               k=I/i            k=8*1024*8/4=16 384 - всего символов

16 384/512=32 страницы