Решить быстро идёт зачет по инфе​

Гру́па нови́н (англ. newsgroup) (інша назва ньюсгрупа або ньюзгрупа) — віртуальне вмістилище повідомлень в технології NNTP, аналог каналу в IRC. Іноді замість терміна група новин не цілком грамотно використовується конференція. Групи позначаються назвами, що складаються зі слів, розділених крапками (.), Наприклад gnu.emacs.help.

Термін група новин є суто технічним і нічого не говорить про приналежність, призначення або правила управління новинним ресурсом. Більшість існуючих груп новин належить Usenet, але позаяк NNTP-технологію використовують не тільки в Usenet, то існують групи новин, які не мають до Usenet ніякого відношення, приватні, керовані за своїми правилами.

З не-Usenetівскіх груп для російськомовних користувачів становить особливий інтерес шлюз fido7. Існують програми (ifmail, fidogate), які здійснюють перетворення повідомлення з формату FTSC-0001 у формат RFC 1036. Вузол Usenet (і, відповідно, Фідонет), на якому встановлена ​​така програма, виконує роль «шлюзу» між двома мережами. Вузол ddt.demos.su (2:5020 / 400) забезпечує шлюзування конференцій Fidonet в Інтернеті у вигляді груп новин

Список розсилання (англ. mailing list, англ. mail-list) — Інтернет-послуга, що надає можливість об'єднати певну кількість людей в єдину закриту групу розсилання. Це практично єдиний сервіс, який не має власного протоколу та програми-клієнта і працює винятково через електронну пошту. При цьому e-mail адреси учасників приховані, а спілкування між ними відбувається через єдину e-mail адресу. Кожному, хто бажає стати учасником списку розсилання чи від'єднатися від нього, достатньо написати листа на адресу списку.

Лист, якого посилають на адресу списку розсилання, автоматично розповсюджується поміж усіма учасниками списку розсилання, не вимагаючи від автора знати адреси всіх зацікавлених осіб. Новий учасник такого списку може одразу долучитися до дискусії, не збираючи адреси всіх інших учасників. Також відпадає потреба щоразу складати перелік адрес, на які має надійти лист.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15