Дан массив L (15), определить количество и сумму чисел…

Question

Дан массив L (15), определить количество и сумму чисел, кратных числу 3. Вывести результат и массив L. Ребятушки, пишите те, кто реально может помочь. Очень прошу) это ТурбоПаскаль

Answer 1

70

whitele

10 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: