Задание:
Дан массив L (15), определить количество и сумму чисел, кратных числу 3. Вывести результат и массив L. Ребятушки, пишите те, кто реально может помочь. Очень прошу) это ТурбоПаскаль
Решение:
Var i,kol,sum: longint; l: array[1… 15] of longint; beginfor i: =1 to 15 dobeginread (m[i]); if m[i] mod 3=0 thenbegininc (kol); sum: =sum+m[i]; end; end; writeln (kol,',sum); for i: =1 to 15 dowrite (m[i],'); end.
Знаете другой ответ?