Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. Определить количество элементов массива кратных 3.
Var x:array[1..100];K,i:integer;Begin k:=0;For i:=1 to 100 do beginRead(x[i]);If (z[i] mod 3=0) then k:=k+1; end;Write(k); end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
