Решите, , в паскале. 1) одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. найти произведение квадратов отрицательных элементов массива, массив вывести в строку. 2) одномерный массив задан формулой a[i]=21-1. найти полу сумму элементов массива.

Var a: array[1..10] of integer;
    i,s: integer;
    priz: boolean;
begin
  randomize;
  write('массив:  ');  s:=1;
  priz:=false;
  for i:=1 to 10 do
   begin
    a[i]:=random(-1,6);
    write(a[i],' ');
    if a[i]<0 then
    begin
      s:=s*sqr(a[i]);
      priz:=true;
    end;
    end;
  writeln;
  if priz then    writeln('произв. квадратов отрицат. элем. = ',s)
  else writeln('нет отрицательных элементов');
  end.

Сделал в VS 2016

Вариант с использованием While
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            while (a <= b)
            {
                if (a % 3 == 0)
                {
                    Console.WriteLine(a);
                }
                a++;
            }
       
            Console.ReadKey();        }
    }
}

Вариант с использованием do while
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            do
            {
                if (a % 3 == 0)
                {
                    Console.WriteLine(a);
                }
                a++;
            }
            while (a <= b);            Console.ReadKey();
        }
    }
}

Вариант с использованием for
namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            int a = Convert.ToInt32(Console.ReadLine());
            int b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine(" ");
            for (int i = a; i <= b; i++)
            {
                if (i % 3 == 0)
                {
                    Console.WriteLine(i);
                }
            }            Console.ReadKey();
        }
    }
}

3241

Объяснение:

Стоит внести ясность, что из себя представляет логическая операция И и ИЛИ.

Логическая операция И выполняется в том случае, когда оба оператора принимают истинное значение.

Операция ИЛИ же требует наличие одного истинного значения из двух операторов.

Чтобы стало понятнее окончательно, давайте представим, что в классе есть 20 учеников, у всех одинаковая фамилия -  Иванов, но разные имена.

Логическое выражение (ИМЯ = ИВАН) & (ФАМИЛИЯ = ИВАНОВ) подразумевает, что мы ищем именно Ивана Иванова из списка всех учеников.

Когда же мы составляем запрос (ИМЯ = ИВАН) | (ФАМИЛИЯ = ИВАНОВ), то мы подразумеваем, что ищем либо ученика с именем Иван, либо ученика с фамилией Иванов. Естественно, во втором случае будет больше запросов.

Итак, касаемо задания:

Чтобы расставить всё в порядке возрастания, необходимо начать с выражений, где используется логический оператор И.

Таким образом, самое маленькое количество запросов будет в 3 варианте.

Ищем дальше логические операторы И. Второй вариант. Но он кажется очень странным, поскольку там используется две одинаковые переменные (шкафы ИЛИ (стулья И шкафы)). Нам необходимо раскрыть сложную формулу. Для этого нужно знать законы логики. Воспользуемся законом поглощения:  

x ИЛИ (z И x) = x

Здесь один запрос - шкафы. Это будет вторым вариантом.

Дальше всё предельно просто - в 4 варианте одно ИЛИ и два варианта, а в первом - два. Где больше ИЛИ - там больше запросов. Следовательно, 4 вариант и 1.