Помогите, 50б)
В массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12. Найти среднее арифметическое, произведение отрицательных чисел, количество четных и максимальный элемент.
1. создание массива
2. заполнение массива
3. посчитать
4. вывод
Срочнооо, спасибо

Что пишет?

Ах не да, там комментарии не //? а в фигурных скобочках))) Огромное отличие!

Да Эникей придрался, скрин же не просто приложил из PascalABC и так понятно, что .Net (последняя версия), а пишу я так подстраиваясь под школу, чтобы человек мог разобраться и объяснить

с каких пор раздел описания переменных после begin идёт? или фишка вашего компилятора?

К Вам никто не придирается, версии PascalABC не существует вообще.

А старую Pascal ABC и современную PascalABC.NET надо как-то различать.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(8,-12,12); a.Println;  Writeln('Среднее арифметическое: ',a.Average);  Writeln('Произведение отрицательных: ',    a.Where(t->t<0).Aggregate(1,(x,y)->x*y));  Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);  Writeln('Максимальный элемент: ',a.Max)end.Пример9 -10 -2 -4 11 8 1 0Среднее арифметическое: 1.625Произведение отрицательных: -80Количество четных: 5Максимальный элемент: 11