Const N = 10; Var A:array[1..N] of integer; i,k:integer; Begin Randomize; WriteLn('Исходный массив: '); k:=0; For i:= 1 to N do Begin A[i]:=random(201)-100; Write(' ',A[i]); if A[i] mod 5 = 0 then k:=k+1; End; WriteLn; WriteLn('Количество элементов, кратных пяти: ',k); ReadLn End.