Question

Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. Определить количество элементов массива кратных 3.

Answer 1

Var x:array[1..100]; K,i:integer; Begin k:=0; For i:=1 to 100 do begin Read(x[i]); If (z[i] mod 3=0) then k:=k+1; end; Write(k); end.