2. 2. Выполните задание в тетрадь. Рассмотрите картинки. Разделите источники звука на естественные и искусственные. Дополните по одному своему примеру.

Var a,p,n,i:integer;
begin
 p := 0;
 n := 0;
 for i := 1 to 15 do
  begin
  read(a);
  if a mod 3 = 0 then
    if a > 0 then p := p + 1
    else
    if a < 0 then n := n + 1
  end;
  if p > n then writeln('Положительных') else
  if p < n then writeln('Отрицательных') else
    writeln('Одинаково')
end.

{вариант "как-то посложнее"}

var a,i,s:integer;
begin
 s := 0;
 for i := 1 to 15 do
  begin
  read(a);
  s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))
  end;
 if s > 0 then writeln('Положительных') else
 if s < 0 then writeln('Отрицательных') else
 writeln('Одинаково')
end.   

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int s;

   cout << "Введите s: ";

   cin >> s;

   switch(s)

   {

       case 0: cout << "LOSE"; break;

       case 1: cout << "DRAW"; break;

       case 3: cout << "WIN"; break;

       default: cout << "Неверное число."; break;

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация (возможно, будет работать без нее)

   int s;  // Создание целочисленной переменной

   cout << "Введите s: ";  // Вывод текста в консоль

   cin >> s;  // Ввод переменной с клавиатуры

   switch(s)  // Принимает значение s

   {

       case 0: cout << "LOSE"; break;  // Если s = 0, то выводим LOSE

       case 1: cout << "DRAW"; break;  // Если s = 1, то выводим DRAW

       case 3: cout << "WIN"; break;  // Если s = 3, то выводим WIN

       default: cout << "Неверное число."; break;  // Если s не равно ни одному из трёх чисел, то выводим Неверное число

   }

}