1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.
2)
begin
var a := ArrRandom(20, 0, 5);
Writeln('Последовательность ');
a.Println;
Writeln('Нечетные ');
a.Where(x -> odd(x)).Println;
end.
using System;
namespace Interesting {
class Program {
static void Main() {
float Max = 0;
float Sum = 0;
float N = 0;
string s;
float num;
Console.WriteLine("Введите последовательность чисел. Для окончания введите пустую строку");
try {
while (true) {
Console.WriteLine("Введите число");
s = Console.ReadLine();
num = Convert.ToSingle(s);
Max = (num > Max) ? num : Max;
Sum += num;
N++;
}
}
catch (Exception e) {
Console.WriteLine("Ввод закончен");
}
Console.WriteLine("Максимальное = {0}, Среднее = {1}", Max, Sum / N);
}
}
}
13)a двоична система состоит только из 0 и 1
14)d
15)d
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).