Дан одномерный массив. опредилить количество элементов кратных трем.​

Vbeker Vbeker    2   06.05.2019 07:44    0

Ответы
hessous hessous  09.06.2020 12:22

var a: array [1..10] of integer;  

max, i : integer;  

n: integer;  

begin  

for i:=1 to10 do {Ввод элементов массива с клавиатуры}

read(a[i]);  

n:=0 ;  {Обнуляем счетчик элементов массива кратных 3}

for i:=1 to10 do {Проверяем есть среди элементов массива элемент кратный 3, если да, то увеличиваем счетчик n на 1}

if a[i] mod 3=0 then n:=n+1;  

writeln('Количество элементов кратных 3:', n);

end.  

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика