Напишите программу которая определяет кол-во чисел кратных 3 в n последовательности чисел введенных с клавиатуру. Сделать через массив, Помогите!

Question

Информатика

Агарза

23 января, 17:49

Напишите программу которая определяет кол-во чисел кратных 3 в n последовательности чисел введенных с клавиатуру. Сделать через массив, Помогите!

+2

Ответы (1)

Знаете ответ на вопрос?

Дауха · Answer 1

Const N:=30 (любое значение) ;

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

begin

for i:=1 to N do begin

write ('A=') ; read (a[i]) ;

end;

c:=0;

for i:=1 to N do begin

if a[i] mod 3=0 then begin

c:=c+1;

end;

end;

write (c) ;

end.