ДАНЫ ФРАГМЕТНЫ ПРОГРАММ.
Допишите в предложенных фрагментах недостающие строки (опирайтесь на программу в задании №2(оно на фото), замените в ней второй блок с циклом на фрагмент предложенный ниже. БЛОК ВВОДА данных оставляйте таким же).
1. Найти сумму элемента кратных заданному числу.
Решение
Будем суммировать не все элементы, а только те, которые удовлетворяют данному условию, то есть только те, которые делятся нацело на заданное число (остаток равен 0).
For i:=1 to n Do {нахождение суммы}
If m[i] Mod k=0 Then s := s + m[i]; {если элемент кратен k,то прибавляем его к сумме}
End;
Выведите результат (в операторе writeln используйте переменную s)​

DanilTasher    3   27.04.2020 14:53    7