Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Проблема нет вот код:
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end.
Объяснение:
результат
Только такая другой нет
Мощность алфавита = 8.
Объяснение:
На заметку: Мощность алфавита — количество символов в нём.
По условию известно, что в каждой строке сообщения (их всего три) по 256 символов. Узнаем общее количество символов, умножив 3 на 256:
1) 3 * 256 = 768 — символов во всём сообщении.
Также нам известен общий информационный объём всего сообщения, равный 0,25 килобайта. Чтобы счёт в будущем был более удобным, можно перевести килобайты в биты, умножив 0,25 на 1024 (1 килобайт равен 1024 байтам) на 8 (1 байт равен 8 битам):
2) 0,25 * 1024 * 8 = 2048 — вес всего сообщения в битах.
Далее, чтобы узнать вес одного символа, достаточно просто поделить общий вес сообщения на количество символов, то есть 2048 на 768:
3) 2048 : 768 = 2,(6) ≈ 3 — вес одного символа.
В последнем шаге нужно воспользоваться формулой количества возможных событий и количества информации (N = 2^i, где N — количество возможных событий (в данном случае — мощность алфавита), а i — вес одного символа).
4) N = 2^3 = 8.