Дан массив целых чисел от 0 до 20, заполненный случайными - вопрос №5500690020 от Orlolo 28.02.2020 12:14

Question

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

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