Предмет: Информатика,
автор: nurakyku
Написать программу создающую массив из N целых элементов со случайными значениями в диапазоне [-50; 50]. Подсчитать среднее арифметическое элементов массива, кратных трем.
Ответы
Автор ответа:
0
Ответ:
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.
Похожие вопросы
Предмет: Русский язык,
автор: shavn04
Предмет: Алгебра,
автор: annacarpovaa
Предмет: Геометрия,
автор: kseniyak719
Предмет: Математика,
автор: миля71
Предмет: Алгебра,
автор: Derye12