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