Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8
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.
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.
Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов
Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12
Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните