Задание:
Найти в одномерном массиве А10 количество положительных элементов, кратных трем. Написать программу на языкеПаскаль.
Решение:
var A: array[1… 10] of integer; i,k: integer; begink: =0; for i: =1 to 10 doif (a[i]>0) and (a[i] mod 3=0) then k: =k+1; writeln ('k=',k); readln; end. Помоему так)
Знаете другой ответ?