Помогите, 50б) В массиве из 8 элементов, заполненном числами в диапазоне от -12 до 12....

Question

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

Answer 1

// 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

Comments

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

Answer 2

Vara:array[1..8] of integer;i,sredn,proiz,chet,max_el:integer;
beginsredn:=0;proiz:=1;max_el:=-12;for i:=1 to 8 do begin a[i]:=random(-12,12);sredn:=sredn+a[i];if a[i]<0 then proiz:=proiz*a[i];if (a[i] mod 2)=0 then chet:=chet+1;if a[i]>max_el then max_el:=a[i];end;writeln('среднее арифметическое  = ',sredn/8);writeln('произведение отрицательных чисел  = ', proiz);writeln('количество четных цифр  =', chet);writeln('максимальный элемент = ',max_el);end.

Сделано в компиляторе PascalABC

---

Comments

в турбопаскале ругается

---

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