<span>Альберт Дитрих; Карл Альберт; Дитрих Фридрих; Фридрих Карл.
</span>
<span>#include <iostream>
using namespace std;
int main()
{
cout << "Hello world!";
return 0;
<span>}</span></span>
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125