Задача 1 Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений. USES Crt; VAR X: INTEGER; S, K, P: INTEGER; I: BYTE; Begin P:=1; S:=0; K:=0; FOR I:=1 TO 10 DO Begin WriteLn(‘Введите ‘, I, ’ -е значение’); ReadLn(x); IF X>0 Then P:=P*X; { произведение положительных } IF X<0 Then Begin S:=S+X; { сумма отрицательных } K:=K+1; { количество отрицательных } End; End; WriteLn(‘ Произведение положительных значений = ‘, p); WriteLn(‘ Сумма отрицательных значений = ‘, s); WriteLn(‘ Количество отрицательных значений = ‘, k); END.

Объяснение:

как то так

использовать Чертежник

алг ключ

нач

сместиться в точку (1,1)

опустить перо

сместиться в точку (2,1)

сместиться в точку (2,2)

сместиться в точку (3,2)

сместиться в точку (3,3)

сместиться в точку (7,3)

сместиться в точку (7,1)

сместиться в точку (11,1)

сместиться в точку (11,6)

сместиться в точку (7,6)

сместиться в точку (7,4)

сместиться в точку (1,4)

сместиться в точку (1,1)

поднять перо

сместиться в точку (8,2)

опустить перо

сместиться в точку (10,2)

сместиться в точку (10,5)

сместиться в точку (8,5)

сместиться в точку (8,2)

поднять перо

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинку

using System;

using System.Collections.Generic;

using System.Linq;

namespace Queue

{

   public class Queue<T>

   {

       private List<T> _items = new List<T>();

       public int Count => _items.Count;

       public void Enqueue(T item)

       {

           if(item == null)

           {

               throw new ArgumentNullException(nameof(item));

           }

            _items.Add(item);

       }

       public T Dequeue()

       {

           var item = GetItem();

           _items.Remove(item);

           return item;

       }

       public T Peek()

       {

           var item = GetItem();

           return item;

       }

       private T GetItem()

       {

           var item = _items.FirstOrDefault();

           if (item == null)

           {

               throw new NullReferenceException("Очередь пуста. Нет элементов для получения.");

           }

           return item;

       }

   }

}

namespace Queue

{

   class Program

   {

       static void Main(string[] args)

       {

           // Создаем новую очередь.

           var queue = new Queue<int>();

           // Добавляем новые элементы в очередь.

           queue.Enqueue(1);

           queue.Enqueue(7);

           queue.Enqueue(42);

           queue.Enqueue(69);

           queue.Enqueue(-17);

           Console.WriteLine($"Очередь содержит {queue.Count} элементов.");

           // Получаем элементы с удалением.

           var item1 = queue.Dequeue();

           Console.WriteLine($"Первый элемент из очереди {item1}.");

           var item2 = queue.Dequeue();

           Console.WriteLine($"Второй элемент из очереди {item2}.");

           // Добавляем новый элемент в очередь.

           queue.Enqueue(88);

           // Просматриваем элемент без удаления.

           var item3 = queue.Peek();

           Console.WriteLine($"Обзор элемента без удаления {item3}.");

           Console.ReadLine();

       }

   }

}