Дан массив целых чисел от 0 до 20, заполненный случайными - вопрос №5501592020 от nelli37 17.02.2023 10:29

Question

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

nelli37 · Answer

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....