Roxans
Опубликовано 6 лет назад по предмету Информатика от Roxans


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

  1. Ответ
    Ответ дан ali07

    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.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц