Так как сказано то что потратили одинаковое количество банок то коричневой краски потратили тоже 8 банок
var
A: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
WriteLn ('Массив:');
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i], ' ');
end;
for i := Low (A) to High (A) do begin
if (A [i] > 50) and (A [i] <= 80) then
s := s + A [i];
end;
WriteLn;
WriteLn ('Сумма элементов массива = ', s);
end.
А) 0,004110* 10^2=0,004110* 100=0,411<span>
б) -16,7810* 10^-3=</span><span>-0,0167810</span>
Актуальность состоит в том, что вирусы тормозят компьютер, т к отслеживают все ваши действия, запоминает пароли и т д. Борьба с вирусами спасает наши конфиденциальную информацию. Но вирусы развиваются, они находят новые лазейки в защите компьютера, поэтому нам очень важно все время бороться с ними.