В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
bryuho20011
bryuho20011
26.03.2021 20:36 •  Информатика

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

Показать ответ
Ответ:
kotovaalina31
kotovaalina31
23.05.2020 18:22

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.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота