Написать программу создающую массив из N целых элементов со случайными значениями в диапазоне [-50; 50]. Подсчитать среднее арифметическое элементов массива, кратных трем.
Назка2006
3
10.12.2020 21:05
0
Другие вопросы по теме Информатика
povshedna
18.11.2020 15:16
gpatimat
15.05.2020 13:52
begimot81
15.05.2020 13:53
longassride
30.09.2019 09:00
Руслантопчик
30.09.2019 09:00
Чевапчичи
30.09.2019 09:00
linagalkinaa1
13.08.2020 17:15
кефирка5623
02.08.2019 16:50
Caшa2220
01.02.2021 22:53
Популярные вопросы
- Решите больше или меньше : 2см, , , ....
3 - 15 ! ! найти все изобразительные выразительны средства в рассказе бежин луг...
1 - Ширина поля 250м, а длина на 150м больше.олна пятая часть площади поля засеяно...
1 - Решить уравнение. 3x/(разделить)x+x=20...
3 - Укажите входы и выходы для системы компьютер...
3 - Как быстро делать работу напишите дельный совет/да я знаю что данный вопрос...
1 - Как определяется наименьшее общее кратное...
1 - Назовите столицу городов мира : испании,италии,германии,бразилии и латвии...
3 - Знайди значення виразу b+8,якщо b=34,27,18...
1 - Прочитай истинные высказывания. замени ложные высказывания на истинные.4...
1
const n=20;
var a:array[1..n] of integer;
i,b,c:integer; k:real;
Begin
for i:=1 to n do read(a[i]);
b:=0;
c:=0;
for i:=1 to n do begin
if (a[i] mod 3 = 0) then begin
b:=b+a[i];
c:=c+1;
end;
end;
k:=b/c;
writeln(k);
end.