HELPP!! определите среднее арифметическое чётных элементов массива A[1..10] Написать...

Question

HELPP!! определите среднее арифметическое чётных элементов массива A[1..10] Написать программу в Паскаль

Comments

вам и сюда тоже написать? я думаю это лишнее =)

---

в PascalABC.NET можно еще так:

---

begin var a := ArrRandom(10, 0, 9); a.Println; Print('Среднее арифметическое четных элементов:', a.Where(x -> x mod 2 = 0).Average)end.

---

Спасибо большое!

Answer 1

Var

m:array [1..100000] of integer;

k,i:integer;

Begin

k:=0;

randomize;

For i:=1 to 10 do

read(m[i]);

For i:=1 to 10 do

k:=k+m[i];

k:=k mod 10;

writeln(k);

end.