<span>arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] <span># Заполняем элементами массив
</span>for i in range(len(arr)):
if i % 2 == 0:
print(arr[i])</span>
13)Сестра-инженер
Жена- юрист
Сын- слесарь
Муж- учитель
Отец-экономист
14. Их последовательность : Нана(Н), Дана(Д), Лана(Л), Зана(З)
Т.к. Д сидит между Н и Л, то расстояние между НД и ЛД одинаковые
Расстояние между Н и З = Д и Л
Следовательно, они все сидят на равных расстояниях друг от друга, ДЛ и ЛЗ будет =2 и между Н и З =6
Для записи 16- цифры необходимо 4 двоичных разряда = 4 бит
101 - имеет 3 цифры
4 * 3 = 12 бит
кол инф = 12 бит
var
a:array [1..1000000] of longint;
N,S,i:longint;
begin
Readln(N);
For i:=1 to N do begin Read(a[i]); S:=S+a[i]; end; Readln;
Writeln(S);
For i:=1 to N do Write(a[i],' ');
end.
Var
a: array[1..10] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
writeln('a[', i, '] = ', a[i]);
if a[i]<50 then
begin
k:=k+1;
s:=s+a[i];
end;
end;
writeln('Элементов, меньших 50: ', k);
writeln('Их сумма: ', s);
s:=s/k;
writeln('Среднее значение элементов, меньших 50: ', s:1:4);
<span>end.</span>