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

Question

Ноэми

26 октября, 05:13

+3

Ответы (1)

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

Анюся · 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.