1) Program Massiv1;
Uses Crt;
var k:array[1..12] of real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 12 do
begin
readln(k[i]);
if (k[i]<0) then Inc(c);
end;
writeln;
writeln;
for i:=1 to 12 do write(k[i]:4:4);
writeln;
writeln('Количество элементов <0:',c);
readkey;
end.
2) Program Massiv2;
Uses Crt;
var m:array[1..10] of integer;
i,c:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0;
for i:=1 to 10 do
begin
readln(m[i]);
if (m[i]=3) then Inc(c);
end;
writeln;
writeln;
for i:=1 to 12 do write(m[i]:4);
writeln;
writeln('Количество элементов =3:',c);
readkey;
end.
В третьем задании видимо имеется ввиду номер элемента этого массива, т.к по условию задачи массив у нас один.
3) Program Massiv3;
Uses Crt;
var m:array[1..8] of integer;
i,c,max:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0;
for i:=1 to 8 do readln(m[i]);
writeln;
writeln;
max:=m[1]
for i:=1 to 8 do
begin
if (m[i]>max) then
begin
max:=m[i];
c:=i
end;
write(m[i]:4);
end;
writeln('Индекс максимального элемента =:',c);
readkey;
end.
4) Program Massiv4;
Uses Crt;
var m:array[1..12] of integer;
i,c,max,sum:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0; sum:=0;
for i:=1 to 12 do readln(m[i]);
writeln;
writeln;
max:=m[1]
for i:=1 to 12 do
begin
if (m[i]>max) then
begin
max:=m[i];
c:=i
end;
write(m[i]:4);
end;
for i:=1 to c-1 do sum:=sum+m[i];
writeln('Количество элементов расположенных до max :',с-1);
writeln('Сумма элементов расположенных до max :',sum);
readkey;
end.
В пятом задании видимо имеется ввиду значения элементов массива меньшие чем сумма первого и последнего
5) Program Massiv5;
Uses Crt;
var k:array[1..15] of real;
sum:real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 15 do readln(k[i]);
sum:=k[1]+k[15];
writeln;
writeln;
for i:=1 to 15 do
begin
write(k[i]:4:4);
if (k[i]<sum) tnen Inc(c);
end;
writeln;
writeln('Количество элементов :',c);
readkey;
end.
Объяснение:
13. температура от 0 до 63 - всего 64 значения. Для кодирования 64 значений достаточно 6 бит (потому что 2⁶=64). 6 бит на одно измерение, всего 10 измерений, тогда информационный объем 6*10=10 бит
14. алфавит содержит 16 символов. для кодировки каждого достаточно 4 бита (потому что 2⁴=16) В сообщении 3 символа, каждый кодирован 4 битами, тогда общий объем информации 3*4=12 бит.
15. Звуковой файл записан с частотой 16000 Гц, разрешением 8 бит, 2 канала и длительность 1 минута.
То есть каждую секунду берется 16000 отсчетов и каждое значение кодируется 8 битами, получаем 16000*8=128000 бит за 1 секунду записи. Но каналов 2 - тогда за 1 секунду записи получаем 128000*2=256000 бит информации. Всего длительность записи 1 минута=60 сек. Общий объем информации будет 256000*60=15360000 бит, или 15360000/8=1920000 байт, или 1920000/1024=1875 кБ.
Такого ответа нет, возможно ошибка.
Числа записаны в четверичной системе счисления.
Объяснение:
32 + 2 = 100 (мы с семьёй переехали, когда мне было 32 года. ... ровно через 2 года после нашего переезда, на мой день рождения (мне исполнилось уже 100 лет)
32 + 2 = 100 только в четверичной системе