Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.
Основные - те устройства, без которых компьютер не будет работать. К таким относится: системный блок, монитор.
Периферийные - устройства, которые позволяют вводить информацию в компьютер и выводить. К таким устройствам относятся: клавиатура, мышь, принтеры и т.д.
Основные устройства - обязательные для работы компьютера, а периферийные - не обязательны. То есть компьютер может полноценно работать без, например, мыши или принтера.
Решение:
1) Нам известно количество полей (количество равновероятных событий) – 8*8= 64
2) По формуле 2^i= N найдем количество бит для кодирования одного поля-2^i= 64 => i = 6 бит
Вот, прошу:) Формула нужная в данном случае такая (прил.)
<span>Это если в колонке И рост, а в С - вес.</span>
Var a,b,c:integer;
k:real;
BEGIN
write('Введите число пассажиров: ');
readln (a);
write('Введите число членов команды: ');
readln (b);
write('Введите число мест в спасательной шлюпке: ');
readln (c);
k := (a + b)/c;
if frac (k) <> 0 then k := int(k) + 1
else k := k;
writeln('Чтобы всех спасти необходимо ',k, ' шлюпок')
END.