var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
Роль источника информации ты можешь играть,например,когда рассказываешь для ученика первого класса что-то новое, для него это является новой информацией,а ты его источник.А роль приёмника,когда узнаешь новую информацию на уроке,получив её от учителя.
За месяц вирус А заполнит 1 Гб, за этот же месяц: вирус В заполнит 0,5 Гб, вирус С Гб, вирус D Гб.
1 + 0,5 + + = 2 Гб
Ответ: 2
Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.
А)Живлення.Б)РОбчий стил Винчестер малюнок кишик Б)Стилус гучномовци.Г)микрофон плеер