Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём.

B{1 ... 20}

Question

Информатика

Ростя

8 августа, 22:01

Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём.

B{1 ... 20}

+3

Ответы (1)

Знаете ответ?

Филофей · Answer 1

Const n=20;

var

a:array [1 ... n] of integer;

i, k:integer;

begin

k:=0;

for i:=1 to n do begin

readln (a[i]) ;

if a[i] mod 3=0 then

k:=k+1;

end;

writeln (k) ;

end.

Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём.B{1 ... 20}

Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём.

B{1 ... 20}