HELPP!!
nопределите среднее арифметическое чётных элементов массива A[1..10]
nНаписать программу в Паскаль
nопределите среднее арифметическое чётных элементов массива A[1..10]
nНаписать программу в Паскаль
Ответ
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.
Мозг
Отвечающий
вам и сюда тоже написать? я думаю это лишнее =)
в PascalABC.NET можно еще так:
begin<br /> var a := ArrRandom(10, 0, 9); a.Println;<br /> Print('Среднее арифметическое четных элементов:',<br /> a.Where(x -> x mod 2 = 0).Average)<br />end.
Спасибо большое!