Напишите программу которая заполняет массив из 10 элементов случайными двоичными данными каждый элемент равен 0 или 1 и выводит его на экран

var a:array [1..10] of integer;

i:integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(2);

write(a[i]:3)

end

end.

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 0, 1);

 a.Println

end.

Обычно - Вирусы не Заражают Комп. Обычных Людей. Обычно Заражаются Комп. в Офисах - Где есть какая - Либо Важная Информация.

Когда Анти-Вирус видит сам Вирус, он издаёт Звук и Говорит Голос - "Вирусная Угроза Была Обнаружена".

Также Исчезают Папки, Файлы и Деньги.

Но бывает также Вирусы, взламывают другие Комп; Телефоны, Планшеты и т.д. Ради Денег. - Высвечивается Надпись что бы приманить Хозяина любого устройства в том числе и комп.

Даже в самых Обычных Онлайн Игр Игровая Валюта - Румбы, Алмазы и Деньги (Игровые) - Могут стоить настоящие Деньги. Тогда Списывают с вашего счёта БЕЗ СПРОСА. Например: - 100 Руб. ; - 82 Руб. и т.д. (Я к примеру).

Или же при взломе На Комп. вместо Букв и Цифр - появляются Странные Символы - #"^^^*** и т.д.

using System;

namespace kp9p_pr_10_zad_6

{

   class Program

   {

       delegate void Square(double a1, double b1, double alfa1);

       static void Main(string[] args)

       {

           double a, b; // переменные для сторон a и b  

           double alpha; // переменная для угла альфа  

           Console.WriteLine("Введите значения треугольника:\n ");

           Console.Write("a: ");

           a = double.Parse(Console.ReadLine());   // ввод стороны a  

           Console.Write("b: ");

           b = double.Parse(Console.ReadLine()); // ввод стороны b  

           Console.Write("Угол альфа: ");

           alpha = double.Parse(Console.ReadLine()); // ввод угла альфа  

           sq(a, b, alpha);  

           static void sq(double a1, double b1, double alpha1) // функция sq расчета и вывода площади  

           {

               Console.WriteLine("\nПлощадь: {0}", (a1 * b1 * Math.Sin(alpha1)) / 2); // вывод и расчет площади  

           }

       }

   }

}