Підготуйте комп’ютер до роботи. Завантажте табличний процесор Excel. Створіть таблицю «Магазин» за . Обчисліть вартість кожного товару, використовуючи формулу й автозаповнення. В клітинку D2 введіть формулу «=B2*C2». Застосуйте автозаповнення для інших клітинок цього стовпця.
Обчисліть сумарну вартість всіх товарів. В клітинку D6 введіть формулу «=SUM(D2:D5)».
Обчисліть загальну кількість всіх товарів. В клітинку В6 введіть формулу «=SUM(В2:В5)».
Визначте, якого товару в магазині найменше. В клітинку B7 введіть формулу «=MIN(B2:B5)».
Визначте, який товар в магазині коштує найбільше. В клітинку С8 введіть формулу «=MAX(C2:C5)».
Знайдіть середню вартість товару в магазині. В клітинку D9 введіть формулу «=AVERAGE(D2:D5)».
Збережіть книгу у власній папці, у файлі з іменем Практична робота 3.xlsx.

В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая – к адресу самого узла в этой сети. При этом в маске сначала (в старших разрядах) стоят единицы, а затем с некоторого места – нули. Обычно маска записывается по тем же правилам, что и IP-адрес, – в виде четырёх байтов, причём каждый байт записывается в виде десятичного числа. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске.
Например, если IP-адрес узла равен , а маска равна , то адрес сети равен .
Узлы с IP-адресами и находятся в разных сетях.

Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.