Составе блок-схему алгоритма и программу вычисления в массиве A(N) суммы всех чисел, кратных 8

Ответы (1)

Наур 17.11.2025 3

program xxx;
var i, n, s, k : integer;
             a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива А:' );
for i:=1 to n do
     readln(a[i]);
s:=0;
k:=0;
for i:=1 to n do
    if a[i] mod 8 = 0 then begin s:=s+a[i]; k:=1 end;
if k=0 then write ('элементов кратных 8 - нет')
            else write('сумма элементов кратных 8 =', s);
readln
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ