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

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

iolandavalerypad353 2 года назад

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

iolandavalerypad353 2 года назад

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

fedorova111214 2 года назад

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

Ответ
0/5 (0 оценок)
1
risaclar123 2 года назад
Светило науки - 6 ответов - 15 раз оказано помощи

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.