Помогите с информатикой, пожалуйста
Ответ
0 (0 оценок)
0
nashtyler217 2 года назад
Светило науки - 36 ответов - 656 раз оказано помощи
Program Nailya; var a: array [1..10] of integer; c, n: integer; begin write('элементы массива? '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n); write('кратных трем: ', n); end. Удачи!

Остались вопросы?