Напишите программку, которая в последовательности естественных чисел обретает среднее

Напишите программу, которая в последовательности естественных чисел находит среднее арифметическое чисел, кратных 8

Задать свой вопрос
1 ответ
Const n=100;
var
m:array[1..n] of integer;
a,b,i,j,k:integer;

begin
k:=0;
b:=0;
writeln ('введите количество цифр');
read (j);
for i:=1 to j do
begin
read(a);
if (a mod 8) = 0 then
begin
b:=b+a;
k:=k+1;
end;
end;
write(b/(k));
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт