...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
Вес одной точки на экране равен глубине цвета, т.е. сколько бит информации несет эта точка.
Найдем глубину цвета I по формуле:
2^I = K, где K = 256 цветов. Отсюда:
2^8 = 256 => глубина равна 8 => вес одной точки равен 8 бит
Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>